Program n_1;
uses math;
var t1, t2, s1, s2, a, b:integer; d, f, l: smallint;
begin
read(t1, t2, d, f, l);
s1:=floor(t1/d)*f;
s2:=floor(t2/d)*f;
a:=floor(t1/d);
b:=floor(t2/d);
if (a*d < t1) then s1:=s1-l;
if (b*d < t2) then s2:=s2-l;
if s1>=s2 then writeln('1 ', s1)
else writeln('2 ', s2);
end.
Хорошо бы, если карта тестов была приложена. Протестировал на нескольких тестах, вроде должно работать нормально.