Ответ:

держи

Program n_1;

var a, b: integer;

begin

 writeln ('Квадрат числа');

 write ('Введите a');

 read (a);

 b:=a*a;

 writeln ('b:=', b)

end.