пешеход прошел s1 км за t1 часов. какое расстояние пройдет перешеход за t2 часов? НАПИСАТЬ В ПРОГРАММЕ ПАСКАЛЬ

var   s1, s2, t1, t2 :real; begin     writeln('Введите s1, t1, t2');     readln(s1);    readln(t1);    readln(t2);     s2 := s1/t1 * t2;    writeln('s2:  ',s2) end.