Безотлагательно !!!!!Написать программку которая выводит на экран сумму 5 естественных чисел.

Var
  i,n,s:integer;
 
begin
  Write('Введите 5 натуральных чисел: ');
  s:=0;
  for i:=1 to 5 do begin
    Read(n);
    s:=s+n
    end;
  Writeln('for: ',s);
  Write('Введите 5 естественных чисел: ');
  s:=0; i:=1;
  while ilt;=5 do begin
    Read(n);
    s:=s+n;
    i:=i+1
    end;
  Writeln('while: ',s);
  Write('Введите 5 естественных чисел: ');
  s:=0; i:=1;
  repeat
    Read(n);
    s:=s+n;
    i:=i+1
  until igt;5;
  Writeln('repeat: ',s)
end.

Пример
Введите 5 натуральных чисел: 5 8 12 6 2
for: 33
Введите 5 естественных чисел: 5 12 8 2 6
while: 33
Введите 5 натуральных чисел: 12 8 5 6 2
repeat: 33