Блок-схема - в прилагаемом файле.
Программу Вам написали правильно:
var
i, p: integer;
begin
p := 1;
for i := 4 to 7 do p := p * i;
writeln('P = ', p);
end.
Результат:
P = 840
Program ggg;
uses GraphABC;var a,b: integer;beginwriteln('введи два целых числа');readln(a,b);if a>2 thenwriteln('первое число больше чем 2')else writeln('первое число меньше 2');
if b>2 thenwriteln('второе число больше чем 2')else writeln('второе число меньше 2');
end.
Код скопировать и вставить не получается прога на ipad'е дерьмовая. Никогда не писал раньше на Паскале(c,c++,c# ,basic, html, Php, JavaScript только ), но должно быть так.
Это слово-Аммиак, но существует множество таких слов.