Вообще черные бабочки вызывают испуг. Если вопрос относиться к сравниванию, то на летаюшего жука.
Ответ:
program z_1;
var x,y,z,k: integer;
s:real;
begin
k:=0;
read(x,y,z);
s:=((x*2)+(y*3)+(z*4))/(x+z+y);
while s < 4 do
begin
k:=k+1;
s:=((x*2)+(y*3)+(z*4)+(k*5))/(x+z+y+k);
if s >= 3.5 then break;
end;
writeln(k)
end.
Объяснение:
пхах, тоже олимпиада))
program xxx;
var i, n, s : integer;
begin
write('введите число N=');
readln(n);
s:=0;
i:=2;
while i<=n do
begin
s:=s+i;
i:=i+2
end;
write('сумма четных чисел =', s);
readln
end.