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.
