var kiirus, aeg, teepikkus: real;
vastus: string;
begin
 writeln('Programm arvutab l„bitud vahemaa.');
 repeat
  writeln('Kiirus=');
  readln(kiirus);
  writeln('aeg=');
  readln(aeg);
  teepikkus:=kiirus*aeg;
  writeln('Vahemaa on ',teepikkus:6:2,' kilomeetrit.');
  writeln('Kas soovid veel arvutada?');
  readln(vastus);
 until vastus='ei';
 writeln('T„nan programmi kasutamise eest!');
end.