Составить программы для решения задач: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. //Конец.