Решите пожалуйста #7 и #8

1)
var b:integer;a:boolean;
begin 
a:=true;
if (a) then
b:=4
else
b:=-4;
writeln(b);
end.
2)
var x,y:real;
begin 
write('Введите х: ');
readln(x);
if (x>7)then
y:=x-3
else if (x<-5) then 
y:=4*sqr(x)
else
y:=5;
write('y = ');
write(y);
end.