Пешеход км за 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.