Question

ПОМОГИТЕ ПОЖАЛУЙСТА
Ваня написал программу для подсчёта площади квадрата:
program ploshad_kvadrata
var a,S: real;
begin
a:=5
S:=a×a
writeln('S=',S, ' кв.см');
end.
  Далее задание на фото​

Answer 1

program ploshad_kvadrata

var a,S: real;

begin

read(a);

write('Площадь')

S:=a×a;

write('S=',S, ' кв.см');

end.

Answer 2

Вместо a:=5 напиши read(a)