Составьте программу на языке паскаль которая уменьшает первое число в 5 раз если оно больше второго по абсолютной величине

Составьте программу на языке паскаль которая уменьшает первое число в 5 раз если оно больше второго по абсолютной величине.

      writeln;

      write('b = '); readln(b);

    end.

      writeln('a = ', a);

      read (a, b);

      if abs (a) > abs (b) then a := a / 5;

        a := a / 5;

    end.

      a, b:real;

    begin

      writeln (a, ' ', b);

  • var

      if abs(a) > b then

      writeln('b = ', b);

      a, b : real;

      write('a = '); readln(a);

      writeln;

     

  • begin

  • var