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

Программа:

Pascal:

var

 n, i, s, chislo: integer;

begin

 write('n = '); readln(n);

 for i := 1 to n do begin

   readln(chislo);

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

 end;

 writeln(s);

end.

С клавиатуры вводятся n чисел. Найти сумму тех чисел, которые меньше 4.