pascalМеньшее из двух заданных неравных чисел увеличить вдвое, а большее оставить…

Program sum; uses crt; vara,b: real; beginwriteln ('Введите число А: '); read (a); writeln ('Введите число B: '); read (b); if (a>b) then a: =a*2 else b: =b*2; writeln ('Числа после измения а=',a,' b=',b); end.