Составить алгоритм решения задачи для определения большей скорости:
одно значение указано в километрах в час, а другое в метрах в секунду
(1 м/с = 3,6 км/ч).нужно нарисовать блок-схем.Задача на разветвляющий алгоритм

Не знаю это или нет

program EvGeN;

var

kilom: real;

metr: real;

begin

kilom := metr * 1.6;

write(Введите скорость в кмч: );

readln(kilom);

write(Введите скорость в мс: );

readln(metr);

if kilom < metr then write(скорость в кмч больше);

if kilom > metr then write(скорость в кмч меньше);

if kilom = metr then write(скорость в кмч равна скорости в мч);

end.