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

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

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

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

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