Question

пожалуйста помогите написать
программу, используя базовую структуру цикла с предусловием While.

Answer 1

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

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