Совсем простые задачи помогите решить

Не писал ничего в паскале уже 3 года )
И тут брат младший в 9 классе попросил решить задачи, я попытался одну решить не запускается, помогите кто нибдуь
Сам нарешал вот так вот, не запускает помогите кто нить.
Program 5
var x,y := real
begin
writeln (`Введите x`);
readln (x);
if x<0 then y:=a;
if x>0 then y:=a*a;
if x=0 rhen y:=0;
Writeln (`y=`,y);
end;



Program 6
var x,y:= real
begin
writeln (`Введите x`);
readln (a);
if a<-2 then y:a-8;
if -2<=x<=2 then y:=a*a*a;
if a>0 then y:=a+8;
Writeln (`y1=`,y);
end;

Вот сами задачи, помогите пожалуйста

 

На бумаге можешь решение написать? Не помню как эту байду решать

 

Напиши саму задачу!

 

Сделай Debug, найди ошибку сам

 

Ты вводишь только "a", потом почему то "y:a" и if "x". Что это?

 

Код:

Program [COLOR="#FFFF00"]Name5;[/COLOR]
var x,y[COLOR="#FFFF00"] :real;[/COLOR]
begin
writeln ('Введите x');
readln (x);
if x<0 then y:=x;
if x>0 then y:=x*x;
if x=0 then y:=0;
Writeln ('y=',y);
end;



Program [COLOR="#FFFF00"]Name6;[/COLOR]
var x,y[COLOR="#FFFF00"]:real;[/COLOR]
begin
writeln ('Введите x');
readln (a); //Тут вводишь a Но x не вводишь
if a<-2 then y:[COLOR="#FFFF00"]=[/COLOR]a-8;
if [COLOR="#FF0000"]-2<=x<=2[/COLOR] then y:=a*a*a; //А это блин что ?????? тут надо два условия нельзя это в одном сделать, а еще питаешся сравнить с x кот
if a>0 then y:=a+8;
Writeln ('y1=',y);
end;

 

Спойлер: Первая

var
x,y:real;
begin
writeln ('Введите x');
readln (x);
if x<0 then y:=x;
if x>0 then y:=x*x;
Writeln ('y1=',y);
end.

Спойлер: Вторая

var
x,y:real;
begin
writeln ('Введите x');
readln (x);
if x<-2 then y:=x-8
else
if x>2 then y:=x*x*x
else
y:=x+8;
Writeln ('y1=',y);
end.

 

5 задача:

Спойлер

var x,y:real;
begin
writeln('Vvedite X: ');
readln(x);
if x<0 then y:=x;
if x>0 then y:=sqr(x);
if x=0 then y:=0;
writeln('Znachenie Y= ',y:5:2);
readln;
end.

6 задача:

Спойлер

var x,y:real;
begin
writeln('Vvedite X= ');
readln(x);
if x<-2 then y:=x-8;
if (x<=2) and (x>-2) then y:=x*x*x;
if x>2 then y:=x+8;
writeln('Znachenie Y= ',y:5:2);
readln;
end.

 

y:a-8;
ты там не присваиваешь,а двоеточие указываешь

 

Остальные ответы херня

ПС Учись благодарить,двоечник