Пожалуйста помогите с информатикой

1. var x,y:integer; begin write('Введите значение x=');read(x); if x<=10 then write('Y=',-5*sqr(x)) else write('Y=',sin(x-1):5:2); end. 2. var a,b:real; begin write('Введите стаж работы=');read(a); write('Введите возраст рабочего=');read(b); if (a>=20) and (b>=42) then write('Работник будет принят') else write('Работник не будет принят'); end. 3. var x,y,r:integer; begin write('Введите значение x=');read(x); write('Введите значение y=');read(y); write('Введите значение R=');read(r); if (sqr(x)+sqr(y))=sqr(r) then writeln('Точка лежит на окружности') else writeln('Точка не лежит на окружности'); end. 4. var x,y,a,b:real; begin write('Введите значение x=');read(x); write('Введите значение a=');read(a); write('Введите значение b=');read(b); y:=5*sqr(x)-7*x+2; if (a=y) and (b=y) then writeln('Точка проходит') else writeln('Точка не проходит'); end. 5. var x:integer; begin write('Введите температуру=');read(x); if x>60 then writeln('Пожароопасная ситуация') else writeln('Не пожароопасная ситуация'); end.