Решите задачки с 1 по 3(где необходимо написать программу и блок

1.
program z1;
var x,y:real;
begin
writeln('введите х');
readln(x);
y:=(sqr(x)+abs(x))/4;
writeln(y);
end.

2.
program z1;
var c,y:real;
begin
writeln('введите c');
readln(c);
if clt;-2 then
y:=c*c*c
else
if cgt;=4 then
y:=sqrt(c)
else
writeln ('таковой у не существует для данной системы');
writeln(y);
end.

3.
program z1;
var x,y:real;
begin
writeln('укажите возраст и трудовой стаж');
readln(x,y);
if (xlt;=40)and(ygt;=20) then
writeln('этого человека примут на работу')
else
writeln('этого человека не воспримут на работу');
end.