Program dfg;
var x, y: integer;
begin
read(x,y);
If (y<=(2-x*x)) and ((y>=x) or (x>=0)) then write ('да') else write ('нет');
end.
Со сложным условием
Что надо делать там вапросы ???
Наступила осень, Alt+Enter
Пожелтел наш сад. Alt+Enter
Листья на берёзе Alt+Enter
Золотом горят.
Var a,d,S:real;
begin
readln(a,d);
S:=(2*a+d*49)/2*49;
writeln(S);
end.
Var
n,m,k,i,l,max,min:longint;
begin
max:=-maxlongint;
min:=maxlongint;
readln(n);
for i:=1 to n do
begin
readln(n);
if n>max then max:=n;
if n<min then min:=n;
end;
writeln('Самый высокий ',max);
writeln('Самый низкий ',min);
end.