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

Спасибо)))

1.program z1;var x,y:real;beginwriteln('введите х');readln(x);y:=(sqr(x)+abs(x))/4;writeln(y);end.2.program z1;var c,y:real;beginwriteln('введите c');readln(c);if c<-2 theny:=c*c*celseif c>=4 theny:=sqrt(c)elsewriteln ('такой у не существует для данной системы');writeln(y);end.3.program z1;var x,y:real;beginwriteln('укажите возраст и трудовой стаж');readln(x,y);if (x<=40)and(y>=20) thenwriteln('этого человека примут на работу')elsewriteln('этого человека не примут на работу');end.