Написать программу.Даны два числа а и б, наибольшее из них умножить на 10, а наименьшее разделить на 10

var a,b: Real;beginwriteln('Введите a и b');readln(a,b);if a>b thenbegina:=a*10;b:=b/10;end;if a<b thenbeginb:=b*10;a:=a/10;end;if a=b thenbeginb:=b*10;a:=a*10;end;writeln('a: ',a);writeln('b: ',b);end.