Определить, через сколько минут все мандарины будут почищены - Pascal ABC

Формулировка задачи:

В пакете X мандаринов. Алина чистит A мандаринов в минуту, а Алена чистит B мандаринов. Каждую K-ю минуту Алина отдыхает и не чистит мандарины, каждую M-ю минуту отдыхает Алёна. Требуется написать программу, которая по заданным целым числам A,K,B,M и X определяет, через сколько минут все мандарины будут почищены.

Формат входных данных:

В первой строке ввода записано одно число X(1<=X<=300)-количество мандаринов. Следующие строки содержат числа A(2<=A<=10), B(2<=B<=10),K (2<=K<=10), M(2<=M<=10)

Решение задачи: «Определить, через сколько минут все мандарины будут почищены»

textual
                            Листинг программы 
                        

                            var x,a,k,b,m,s,res:integer;
begin
read(x,a,b,k,m);
s:=a+b;
res:=0;
while x>0 do
 begin
  inc(res);
  if (res mod k=0)and(res mod m<>0) then x:=x-b
  else if (res mod k<>0)and(res mod m=0) then x:=x-a
  else if (res mod k<>0)and(res mod m<>0) then x:=x-a-b;
 end;
write(res)
end.
                        