Ответ на картинке,сначала ты объявляешь начало алгоритма прграммы(в овале),после вводишь данные (параллелограмм),а далее ставишь условие(ромб),выводишь его по формуле(прямоугольник),и заканчиваешь алгоритм(овал).
<style>
#Таблица { border-collapse: collapse; }
#Таблица td { width: 30px; height: 30px; border: 1px solid; }
</style>
<table id="Таблица">
<tr><td colspan=8></td></tr>
<tr><td rowspan=6></td><td colspan=6></td><td rowspan=7></td></tr>
<tr><td rowspan=4></td><td colspan=4></td><td rowspan=5></td></tr>
<tr><td rowspan=2></td><td colspan=2></td><td rowspan=3></td></tr>
<tr><td></td><td></td></tr>
<tr><td colspan=3></td></tr>
<tr><td colspan=5></td></tr>
<tr><td colspan=7></td></tr>
</table>
Формула свободного падения и формулы которые тут нужны - разные. могу только дать тебе "скелет" программы. теперь тебе нужно найти именно ЭТИ формулы, которые записаны в задаче, возможно таких формул в чистом виде не существует и нужно применять навыки знания физики
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
ч, y: ЦЕЛ;
УКАЗ
ч := Приём.Число();
y := (ч ДЕЛИТЬ 100 ОСТАТОК 10) * 1000 +
(ч ДЕЛИТЬ 1000) * 100 +
(ч ОСТАТОК 10) * 10 +
(ч ДЕЛИТЬ 10 ОСТАТОК 10);
Вывод.ЧЦел("^%d", y, 0, 0, 0)
КОН Задание.