Помогите составить программу нахождения площади квадрата и составить блок-схему.(Заранее спасибо)
Program q; var a:integer; begin write('Сторона: '); read(a); a:=a*a; writeln('Площадь равна: ',a); end.