Вычислите сумму 4 целых чисел введенных с клавиатуры(необходимо сделать с циклом

program sum4_3cycle;
var f:text;
//n число для суммирования,сумма, k счетчик
n, s, k :integer;

begin
writeln(Цикл for...);
s:= 0;
for i: integer:= 1 to 4 do
begin
write(Введите число , i, );
readln(n);
s:= s + n;
end;
writeln(Сумма = ,s);
writeln();

writeln(Цикл while...);
s:= 0; k:= 0;
while k lt; 4 do
begin
write(Введите число , k + 1, );
readln(n);
s:= s + n; k:= k + 1;
end;
writeln(Сумма = , s);
writeln();

writeln(Цикл repeat...);
s:= 0; k:= 1;
repeat
write(Введите число , k, );
readln(n);
s:= s + n; k:= k + 1;
until k = 5;
writeln(Сумма = , s);
end.