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

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