Question

Помогитееее прошу даю 15 баллов

Answer 1

Program ploshad_kv;

var a,S: integer;

begin

readln(a);

S:=sqr(a);

writeln('S = ',S);

end.