очень срочно информатика 10 коасс

1.  ((x-1)/sqr(y)-1/x)/(1/y+1/(x+1))

2.  

program Schet;

var x,y:real;

begin

write('Введите значение X: ');

readln(x);

if (x+100gt;0) then begin

y:=(sqr(x)+4)/sqrt(x+100);

writeln('Y = ',y) end

else writeln('При данном значении X выражение не может быть рассчитано!')

end.

3.  

program Func;

var x,y:real;

begin

write('Введите значение X: ');

readln(x);

if xlt;=0 then y:=4*x else

y:=(sqr(x)+1)/2;

writeln('Y = ',y)

end.

4.  

program interval;

var s,x:real;

begin

x:=0;

repeat

s:=2*x*x+1;

writeln('при X = ',x:5:2,'   S = ',s:6:2);

x:=x+0.5

until xgt;10

end.

Все программки написаны на языке ABC Pascal и испытаны на функциональность