Написать программу на языке Pascal.

Для выполнения заданий из таблицы на языке Pascal, необходимо написать программы, соответствующие формулировке каждой задачи. Для варианта 1: 1. Определить время падения камня на поверхность земли с высоты h. ```pascal program TimeOfFall; var h, g, t: real; begin g := 9.81523; write('Введите высоту h: '); readln(h); t := sqrt(2 * h / g); writeln('Время падения: ', t:0:2, ' секунд'); end. ``` 2. По данным сторонам прямоугольника вычислить его площадь S и длину диагонали d. ```pascal program Rectangle; var a, b, S, d: real; begin write('Введите длину первой стороны: '); readln(a); write('Введите длину второй стороны: '); readln(b); S := a * b; d := sqrt(a * a + b * b); writeln('Площадь прямоугольника: ', S:0:2); writeln('Длина диагонали: ', d:0:2); end. ``` Для выполнения варианта 2 аналогичным образом следует написать программы для вычисления объема цилиндра и расстояний.