var x, p, a: integer;
begin
x :=0; p :=0;
readln(a);
while p < 140 do begin
p := p + a;
x := x + 1
end
writeln (x);
end

----------------------
x=24
Найти a ( наим )

x=24 - количество проходов по циклу(р+а) - к   (р ) а суммируется 23 раза140:23=6 (с остатком)   ---->  a=6  ответ 6