program Prevod_ms_na_kmh;

uses crt;

var a, b :real;

begin
  clrscr;
  writeln('Tento program prevadi m/s na km/h.');
  write('Vloz hodnotu ms/s: ');
  readln(a);
  b := a * 3.6;
  writeln('Hodnota ',a:8:2,' m/s je rovna ',b:8:2,' km/h.');
  writeln;
  writeln('Stiskni ENTER ...');
  readln;
end.