Пожалуйста, решите задачу

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 lt; t1) then s1:=s1-l;

   if (b*d lt; t2) then s2:=s2-l;

   if s1gt;=s2 then writeln('1 ', s1)

   else writeln('2 ', s2);

end.

Превосходно бы, если карта тестов была приложена. Протестировал на нескольких тестах, вроде должно работать нормально.