var km:integer;
t:real;
begin
write('Введите скорость в км/ч = '); readln(km);
write('Введите время в часах = '); readln(t);
writeln('Расстояние = ',km*t,' км');
end.
