Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Program OhDuck;
- var
- a, b, Vkmh: real;
- begin
- readln (a);
- readln (b);
- Vkmh := b*3.6;
- if (a > Vkmh) then begin
- writeln ('скорость в километрах в час больше');
- end else if (a < Vkmh) then begin
- writeln ('скорость в метрах в секунду больше');
- end else begin
- writeln ('oni ravny');
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement