Даны два числа. Большее число увеличить на 3, а меньшее уменьшить на 5

даны два числа. Большее число увеличить на 3, а меньшее уменьшить на 5

     

        readkey;

     

                  end

                     a:=a+3;              

    var a,b:real;

                  begin  

                     b:=b-5;   

                 end   

                     b:=b+3;              

           write('введите число а:  ');

         clrscr;

     

  • Program chisla;

                 begin  

                     a:=a-5;   

           readln(b); 

     

     

    end. 

           write('введите число b:  ');

    Uses crt; 

           if (a>b) then 

     

      writeln('a= ',a);

     

  •       if (a=b) then writeln('Числа равны'); 

    begin

           readln(a); 

         else          

     

       writeln('b= ',b);