Question

Помогите сделать программу на pascal abc из блок-схемы. Пожалуйста

Answer 1

var i, f:integer;

begin
f := 1;
for i:= 1 to 6 do begin
f := f*i;
end;
 write(f);
end.