Составить по этому алгоритму на языке паскаль.

program z1;

  var k,a,b: real;

    begin

      writeln('Введите число А');

      readln(a);

      writeln('Введите число В');

      readln(b);

      k:=0;

      if a>=0 then k:=k+1;

      if b>=0 then k:=k+1;

      writeln('k равно ',k);

     readln;

    end.

Program n_1;

var K :integer; A, B: real;

begin

   read (A, B);

   K:=0;

   if a>=0 then K:=K+1;

   if b>=0 then K:=K+1;

   writeln(K);

end.