Срочно, помогите с заданием пожалуйста.

Программы обозначаю как P1 (Program P1;), P2 и P3 - соответственно: P1 - к заданию a, P2 - к b, P3 - к c:

a)
Program P1;
uses crt;
var x, y: real;
begin
clrscr;
write ('Введите значение переменной x: x=');
readln (x);
write ('Введите значение переменной y: y=');
readln (y);
write ('Ответ: ', (abs (x)-abs (y))*(1+abs (x*y)));
readkey;
end.

b)
Program P2;
uses crt;
var x, y: real;
begin
clrscr;
write ('Введите значение переменной x: x=');
readln (x);
write ('Введите значение переменной y: y=');
readln (y);
write ('Ответ: ', x*y*sqrt (sqr (x)+sqr (y)));
readkey;
end.

c)
Program P3;
uses crt;
var x, y: real;
begin
clrscr;
write ('Введите значение переменной x: x=');
readln (x);
write ('Введите значение переменной y: y=');
readln (y);
write ('Ответ: ', (x-y)*(abs (x)-abs (y)));
readkey;
end.

program z_1_a;
uses crt;
var x,y:integer;
begin
write(' wwedite x = '); read(x);
write(' wwedite y = '); read(y);
write(' otv: = ', (abs(x)-abs(y))*(1+abs(x*y)));
end.

{ program z_1_b;
uses crt;
var x,y:integer;
begin
write(' wwedite x = '); read(x);
write(' wwedite y = '); read(y);
write(' otv: = ', x*y*sqrt(sqr(x)+sqr(y)));
end. }

{program z_1_c;
uses crt;
var x,y:integer;
begin
write(' wwedite x = '); read(x);
write(' wwedite y = '); read(y);
write(' otv: = ', (x-y)*(abs(x)-abs(y)));
end. }