Verified answer

Объяснение:

program speed;

var s, t, res:real;

begin

 writeln('введите расстояние (S, метры)');

 readln(s);

 writeln('введите время (T, секунды)');

 readln(t);

 res := s/t;

 writeln('ответ: T ' + res + 'м/сек');

end.