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

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