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

Program chisla;

Uses crt;

var a, b:real;

begin

clrscr;

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

readln (a) ;

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

readln (b) ;

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

if (a>b) then

begin

a:=a+3;

b:=b-5;

end

else

begin

b:=b+3;

a:=a-5;

end

writeln ('a = ', a) ;

writeln ('b = ', b) ;

readkey;

end.