Нужно сделать схему

[Freqvy]

Program idk;
var S, P, i, x :integer;
Cr: real;
begin
S := 0;
P := 1;
for i := 1 to 5 do
begin
S := S + i;
P := P * i;
Cr := S / 5;
end;
writeln('S =', S);
writeln('p =', P);
writeln('Cr =', Cr);

end.
Заранее всем спасибо)

[maks1331]

Делать схемы это самое интересное! Приводить свой код к формату в котором общая концепция станет понятна любому программисту в квадриллион раз быстрее, чем из чтения исходников. Очень полезный навык, стоит попробовать сделать самому. Ссылка