Составь программу pascal вычисления пройденного пути

var t, v, s: real; begin write('Введите время t (в секундах): '); readln(t); write('Введите скорость v (в м/с): '); readln(v);

s := t * v;

writeln('Пройденный путь равен: ', s, ' м'); end.