Написать программу, используя базовую структуру цикла с предусловием while.

Var m,k:integer;
begin
readln(m);
while 4*k<m do
k:=k+1;
writeln(k);
end.

Надеюсь на "Лучший ответ"