Блок-схема - в прилагаемом файле.
Программу Вам написали правильно:
var
i, p: integer;
begin
p := 1;
for i := 4 to 7 do p := p * i;
writeln('P = ', p);
end.
Результат:
P = 840
В первом вложении приведена блок-схема по ГОСТ 19.701-90 (ISO 5807-85). СХЕМЫ АЛГОРИТМОВ, ПРОГРАММ, ДАННЫХ И СИСТЕМ. Обозначения условные и правила выполнения.
Алгоритм титрования на АЯ (Кумир) приведен во втором вложении.
9=1×9; 18=2×9; 27=3×9; ... 162=18×9
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
Writeln('S=',1.To(18).Select(i->1/(9*i)).Sum)
end.
<u><em>Результат</em></u>
S=0.388345342021813
<u>Задание</u><u> </u><u>1</u>
1). 320-200 = 120
2). 120+50 = 170
Ответ: <em>170</em>
<u>Задание</u><u> </u><u>2</u>
1). 427-222 = 205
2). 405+50 = 255
Ответ: <em>2</em><em>55</em>
<u>Задание</u><u> </u><u>3</u>
1). 245+235 = 440
2). 440-120 = 360
Ответ: <em>360</em>