Помогите сделать 7 вариант !!!! 1 и 3

1)
var r,x,y : real;
begin
write(r = ); readln(r);
write(x = ); readln(x);
write(y = ); readln(y);
if (x*x+y*ylt;=r*r)and(xgt;=0)
  then writeln(Да)
  else writeln(Нет)
end.

Пример:
r = 2
x = -1.5
y = 0.5
Нет

3)
var a,b,c : real;
begin
writeln(a=);
readln(a);
writeln(b=);
readln(b);
writeln(c=);
readln(c);
if (a+bgt;c) and (a+cgt;b) and (b+cgt;a)
 then writeln(YES)
 else writeln(NO);
end.

Пример:
a= 3
b= 4
c= 5
YES