как решать через Паскаль???!СРОЧНО . ПОЖАЛУЙСТА!!!!

1. Program test;vara, b, c : integer;x, y : real;beginwriteln('Введите значения переменных a, b, c: ');readln(a, b, c);x:=(sqr(a)+sqr(b))/(sqrt(abs(a-c))+1);y:=sqr(sin(a))-sqr(cos(a));writeln('X = ', x);writeln('Y = ', y);end. 2.Program test;varx, y: integer;z:real;beginz:=0;writeln('Введите значения x, y: ');readln(x, y);if (x < y) then z := 2*(abs(x-y));if (x > y) or (x = y) then z:= sqrt(2*y-x);writeln('Z = ', z);end.