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

Question

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

---

Answer 1

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

Answer 2

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