Составим план:
1История создания
2использование человеком
3Внешнее стоение
4 Внутреннее строение
Ну и т.д.
Program Task;
Var i: Integer;
p: LongInt;
Begin
p := 1;
For i := 1 To 10 Do
p := p * i;
WriteLn('Результат: ', p);
ReadLn;
<span>End.</span>
нууу,как-то так xDD Я не знаю как на это ответить камерой,(я с ноута)
Ответ на картинке,сначала ты объявляешь начало алгоритма прграммы(в овале),после вводишь данные (параллелограмм),а далее ставишь условие(ромб),выводишь его по формуле(прямоугольник),и заканчиваешь алгоритм(овал).