1. написать программу, которая подсчитывает периметр квадрата, площадь которого равна а. 2.написать программу, которая подсчитывает площадь равностороннего треугольника, периметр которого равен p

Program per;
uses crt;
var  s:real;
       p:real;
begin
clrscr;
write('Введите площадь квадрата: ');readln(s);
p:=sqrt(s)*4;
write(p:2:2);
readln();
end.