👤

Elaborati un program care calculeaza aria unui patrat (pascal)

Răspuns :

var x,s:real;
Begin
writeln('Introduceti masura laturii patratului:');
readln(x);
s:=sqr(x);
writeln('Aria este:',s);
End.