Даны четыре вещественных числа. Определить, сколько из них отрицательных. Оператор цикла не использовать- Pascal(Паскаль)

program tt;
uses crt;
var
  a,b,c,d:real;
  j:integer;
begin
  ClrScr;
  writeln('Первое число:');
  readln(a);
  writeln('Второе число:');
  readln(b);
  writeln('Третье число:');
  readln(c);
  writeln('Четвертое число');
  readln(d);
  j:=0;
  if a<0 then
   j:=j+1;
  if b<0 then
   j:=j+1;
  if c<0 then
   j:=j+1;
  if d<0 then
   j:=j+1;
  writeln('Отрицательных чисел ',j);
  readln;
end.