Помогите пожалуйста :3

Question

Помогите пожалуйста :3

---

Answer 1

1)
var a,b,c:integer;
begin
Writeln('X=');
read(x);
Writeln('Y=');
read(y);
c:=y;
y:=x;
x:=c;
Writeln('X=',x);
Writeln('Y=',y);
End.
2) var x,y:integer;
begin
  Write('x'); 
 Readln(x); 
  y:=sqr((1-sqr(x)+5*Sqr(Sqr(X)))); 
  write(y); 
 readln;
end.