Факториалом числа называет произведение всех чисел от 1 до этого числа. Нам нужно посчитать 1 * 2 * 3 * 4 * 5 * 6 * 7 тремя способами и убедиться, что получится 5040.
PascalABC.NET 3.2
begin
var fact := 1;
var i := 1;
while i < 8 do
begin
fact *= i;
i += 1;
end;
println('Через while получилось', fact);
fact := 1;
for i := 1 to 7 do
fact *= i;
println('Через for получилось', fact);
fact := 1;
i := 1;
repeat
fact *= i;
i += 1;
until i > 7;
println('Через repeat получилось', fact);
end.