Составить алгоритм решения для определения большего расстояния из двух: одно указано в километрах, а другое в футах (1 фут = 0,45 м).

program raf105;

var

 km,fut: real;

begin

 write('Введите расстояние в километрах: ');

 readln(km);

 write('Введите расстояние в футах: ');

 readln(fut);

 write('Большее: ');

 if km > fut * 0.00045 then writeln(km,' км.')

   else writeln(fut,' фут.');

end.