РЕБЯТ ПОЖАЛУЙСТА ИНФА ХОТЯ БЫ ОДНО (КРОМЕ 1)

2)var x,y:real;
Begin
Readln(x);
If x>4 then
y:=1/x-4;
If x<=4 then
y:=x*x;
Writeln(y);
End.


3)var a,b,c:integer;
Begin
Readln(a,b,c);
If (c>a) and (cWriteln('YES') else
Writeln('NO');
End.