Решите, пожалуйста!!!
Простенькие задачки по информатике, уровня 9-10 класса

1. Program kek;var y.x,c,d:real;beginreadln(c);readln(x);readln (d);y:= c+d-sqrt(sqr(c)+sqr(d))/abs(x)+dwriteln ('y= ', y);end.2. Program lul;var t,p,x,y:real;beginreadln(x);readln(p);readln(y);if p<0 then t:=x+y else t:=x-y;write ('t=  ', t);end.3. Извини не знаю, надеюсь хоть с задачами помог :D