держи
Program n_1;
var a, b: integer;
begin
writeln ('Квадрат числа');
write ('Введите a');
read (a);
b:=a*a;
writeln ('b:=', b)
end.
