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

Program n_1;

var K :integer; A, B: real;

begin

   read (A, B);

   K:=0;

   if agt;=0 then K:=K+1;

   if bgt;=0 then K:=K+1;

   writeln(K);

end.

program z1;

  var k,a,b: real;

    begin

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

      readln(a);

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

      readln(b);

      k:=0;

      if agt;=0 then k:=k+1;

      if bgt;=0 then k:=k+1;

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

     readln;

    end.