var
n, i, e, m : Integer;
yes : Boolean;
begin
Readln(n);
m := 1;
yes := False;
for i := 1 to n do
begin
Readln(e);
if e > m then m := e;
if e < 30 then yes := True;
end;
Writeln(m);
if yes then Write('YES') else Write('NO');
end.
Var
i:integer;
y,x:real;
begin
writeln('Введите аргумент X');
readln(x);
if (x>=0) and (x<=2) then
begin
y:=ln(30)+exp(2*x);
writeln('1 случай:');
end
else
if (x<0) then
begin
y:=cos(x-5);
writeln('2 случай:');
end
else
begin
y:=2*pi*x;
writeln('3 случай:');
end;
writeln('Значение функции Y = ',y);
end.
<h3>PascalABC.NET 3.4.2, сборка 1826 от 07.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadlnString.ToWords.First.Println
end.
Петров не играет ни на скрипке, ни на альте, ни на трубе.
Иванов не играет ни на скрипке, ни на флейте, ни на трубе, ни на гобое.
Значит, на скрипке и на трубе играет Сидоров.
На флейте и на гобое играет Петров. Иванов играет на альте и кларнете.
Начало
Встал.
Почистил зубы.
Съел завтрак.
Оделся.
Вышел.
Конец.