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