Информатика (19 поинтов)

begin
var x:=ReadReal('X =');
Writeln('Y = ', x>=0 ? 7*x - 3:2*x*x*x);
end.

begin
var a:=ReadReal('Результат первого участника равен');
var b:=ReadReal('Результат второго участника равен');
var c:=ReadReal('Результат третьего участника равен');
Writeln('Лучший результат: ', min(min(a,b), c));
end.

begin
var b:= ReadReal('b =');
Writeln(b > 3? b-5:b*2);
end.