Составить программу нахождения площади квадрата и составить блок-схему.(заранее )

Program q;
var a:integer;
begin
write('Сторона: ');
read(a);
a:=a*a;
writeln('Площадь равна: ',a);
end.