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

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