Решите первые два задания из вложения,пожалуйста,только честно 

var a,b:real;begin write('введите два числа);read(a,b);if a+b=round(a+b) then write('сумма является целым числом') else write('не является');end.=============== var x,y:real;beginwrite('задайте х');if (x>= -4) and (x<=7) then y:=2*x*x+7*x-6 else y:=sqr(sqr(x))+x-2;write('Ответ: если х=',x,'   y= ', y);end.

var x,y:real;beginreadln(x);if (x>=-4) and (x<=7) then y:=((2*sqr(x))+(7*x)-6)else y:= (Exp(Ln(x)*4))+x-2;writeln(y);readln;end.