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

write ('Длина стороны:')

read (a)

S:=a*a

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

end.