Приложение №1.
Program one;
var  x,y:integer;
begin
writeln('Введите x');
readln(x);
if (x>10) or (x<-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 > b    then
begin     
a := a/2;     
b := b * b   
end   
else if b > 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)