Сиропчик и Лимончик покупали и пили кока-колу, пустые бутылки сдавали и снова покупали кока-колу, пока не кончались все деньги. Сколько литров выпил каждый из них, если у Сиропчика было S рублей, а у Лимончика L рублей, 1 бутылка кока-колы 0,6 л стоит 8 рублей, пустые бутылки принимают по 70 копеек — Pascal(Паскаль)

program zadacha_2;
var
  l1, k1, l2, k2: integer;
  m1, m2: real;
 
begin
  writeln('Введите сколько денег у Сиропчика');readln(k1);
  writeln('Введите сколько денег у Лимончика');readln(k2);
  l1 := 100 * k1; {Переводим в копейки деньги Сиропчика}
  l2 := 100 * k2; {Переводим в копейки деньги Лимончика}
  if (k1 < 8) then writeln('У Сиропчика не хватает денег даже на бутылку')
  else
  begin
    while l1 >= 800 do
    begin
      m1 := m1 + 0.6;
      l1 := l1 - 800 + 70
    end;
    writeln('Сиропчик выпил ',m1,' литра(ов) кока-колы');
  end;
  if (k2 < 8) then writeln('У Лимончика не хватает денег даже на бутылку')
  else
  begin
    while l2 >= 800 do
    begin
      m2 := m2 + 0.6;
      l2 := l2 - 800 + 70
    end;
    writeln('Лимончик выпил ',m2,' литра(ов) кока-колы');
  end;
end.