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

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