Укажите смертельный уровень звука?

Ну например на Паскале так, только совсем без проверок корректности вводимых данных, а так можно было отработать еще и отсутствие хорошистов отличников просто, если х=0, то и их средний балл тоже выводить 0.

112:14=8 будет 8 вот тебе

1/
var i:integer;
begin
for i:=1 to 20 do begin
if i mod 2=1 then write(i, '  ');
end;
end.

2/
var i:integer;begin
for i:=15 to 40 do begin
if  i mod 2=0 then write(i,'  ');
end;
end.

Var a,b,c:real;
begin
read(a, b, c);
writeln(max(a,max(b,c)));
end.

или

var a,b,c:real;
begin
read(a, b, c<span>);
</span>if (a>=b) and (a>=c) then write(a)
else if (b>=a) and(b>=c) then write(b) else write(c);
end.

Блок-схемы делать не рискую, но решение задачи во вложении :D