👤

Program Pascal : Sa se afle perimetrul si aria unui patrat.
va rog mult


Răspuns :

Program Patrat;
var a, S, P:real;

begin
writeln('Introduceti masura laturii patratului');
readln(a);
S:=sqr(a);
P:=4*a;
writeln('Aria patratului');
writeln(S);
writeln('Perimetrul patratului');
writeln(P)
end.