PASCAL. Поезд, двигаясь умеренно со скоростью 55 км/ч, проезжает мимо придорожного

program poezd;

var

s, v, vm, t : real;

begin  

WriteLn('Введите скорость поезда(км/ч)');

read(v);

writeln('Введите время(в секундах)');

read(t);

vm := v * 1000 / 3600;  //переводим км/ч в м/с

S := vm * t;

if S gt; 200 then

begin

writeln('Да, больше.');

end;

if S lt; 200 then

begin

writeln('Нет, меньше.');

end;

end.