Question

Нужно составить линейную блок-схему задания "Вычислить периметр квадрата, если задана, его площадь". Помогите, пожалуйста!

Answer 1

program zadacha;
var a,p,s:integer;
begin
writeln('Введите сторону квадрата: ');
readln(a);
s:=a*a;
p:=a+a+a+a;
writeln('Площадь квадрата = ',s,' , периметр квадрата = ',p,'.');
end.