НУЖНО СОСТАВИТЬ АЛГОРИТМ ( ЦИКЛ) ПАСКАЛЬ

pascal

Объяснение:

var n, i, k, s: integer;

begin

 Write('Сколько чисел будете вводить? '); ReadLn(n);

 for i := 1 to n do

 begin

   Write('Введите ', i, '-е число: '); ReadLn(k);

   if k < 4 then s := s + k;

 end;

 WriteLn('Сумма чисел, которые меньше 4, равна ', s);

end.