Составить программу для вычисления площади квадрата нарисовать блок схему

Question

Составить программу для вычисления площади квадрата нарисовать блок схему

Answer 1

Program Kvadrat;
var a:real;
begin
 writeln('Введите длину стороны квадрата');
 readln(a);
writeln('Площадь квадрата = ', sqr(a));
end.

---