Задана последовательность чисел а1, а2, а3, а4. Составить программу подсчёта положительных чисел, входящих в заданную последовательность- Pascal(Паскаль)

var
  a, i, s : integer;
 
begin
  s := 0;
  for i := 1 to 4 do
  begin
    write('введите a', i, ' : ');
    readln(a);
    if a > 0 then inc(s)
  end;
  writeln('количество положительных: ', s);
  readln
end.