Составить программки для решения задач:1. Известен периметр квадрата. Найти его диагональ.2.

1. 

var p: integer; //Заводим переменную для диагонали квадрата.

begin

writeln(Введите периметр квадрата); //Запрашиваем периметр квадрата на ввод с клавиатуры.

readln(p); //Вводим периметр с клавиатуры.

writeln(Диагональ одинакова, (p / 4) * sqrt(2)); //Отыскали и вывели диагональ квадрата.

end. //Конец.  

2.

var s: integer; //Задаём переменную для площади квадрата.

begin //Начало.

writeln(Введите площадь квадрата); //Запрашиваем площадь квадрата на ввод с клавиатуры.

readln(s); //Вводим площадь.

writeln(Периметр равен , sqrt(s) * 4); //Находим периметр и выводим его.

end. //Конец.