Ребят, кто шарит в паскале и все в этом сходственном, помогите

Попробуйте проявлять больше уважения к неизвестным Для вас людям, если о чем-то их требуйте!

Приложение 1.
Program one;
var  x,y:integer;
begin
writeln('Введите x');
readln(x);
if (xgt;10) or (xlt;-10) then
y:=x+5;
writeln('Ответ: ',y);
end.
(Вывод на рисунке 1)

Прибавленье 2
Program two;
var  a,b:real;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b); 
if a gt; b    then
begin     
a := a/2;     
b := b * b   
end   
else if b gt; a      then
begin
b := b/2;
a := a * a     
end;     
if a=b then        
writeln('a = b');
writeln('Ответ: ');
writeln('a = ',a);
writeln('b = ',b);
end.
(Вывод на рисунке 2)