"смекалкин,уходя в школу,вшел из дому на 3 минут позже младшего брата. расстояние до школы s метров .смекалкин идет со скоростью v1 м/мин, а его брат -v2 м/мин .догонит ли смекалкин брата, прежде ,чем тот придет в школу? "

Опять лекго же 1 класс

Pascal 
const      z = 3; 
var   s,v1,v2 : integer; 
  t1,t2 : real;  
  begin 
writeln ('s='); 
readln (s);
  writeln ('v1 v2'); 
 readln (v1,v2); 
 t1 := s/v1 + z; 
 t2 := s/v2; 
 if t1 < t2 then 
  writeln ('Смекалкин обгонит брата');
  if t1 > t2 then 
  writeln ('Смекалкин не догонит брата'); 
 if t1 = t2 then 
  writeln ('Оба брата придут одновременно'); 
end.