1.
Program test;
var
a, b, c : integer;
x, y : real;
begin
writeln('Введите значения переменных 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;
var
x, y: integer;
z:real;
begin
z:=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.