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 ( наим )