program raf105;
var x,a,b:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
x:= a*a-b;
writeln('x = ',x);
end.
Язык PascalABC
program raf105;
var x,a,b:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
x:= a*a-b;
writeln('x = ',x);
end.
Язык PascalABC