Напишите программы для определения результатов логических выражений:
логических выражений:

1) a=8; b=a**3; a < b / 3

2) a = 10 b=a*3; a <= b / 3

3) a = 8 ; b=a; a+b=2*b

4) a = 8 b = a - 4 a + 3 >= b - 2

program z1;

var n,k:integer;

begin

k:=0;

write ('Введите натуральное число (n>9): ');

readln (n);

write ('Цифры натурального числа ',n);

while n>=10 do

begin

if n mod 10 < n div 10 mod 10 then k:=1;

n:=n div 10

end;

if k=1 then write (' НЕ расположены в порядке возрастания')

else write (' расположены в порядке возрастания')

end.

Объяснение:

Вводим число

Цикл с предусловием (условие число больше или равно 10)

Сравнение последней и предпоследней цифр числа, если последняя меньше, то k присваивается значение 1

n присваивается значение целочисленного деления на 10 (отбрасываем последнюю цифру числа)

Если k = 1, то цифры не расположены в порядке возрастания, иначе расположены

'); 
writeln(); 
goto metk;  
end.

Вот это уже лучше и вроде работает
оператор goto используется для перемещения между  операциями(сложить вычесть считать), выходом и меню.

 label     
sum,razn,menu,re,ex;       
var   
m,a,b : integer;  
begin 
menu :   
writeln ('1 - считать числа');   
writeln ('2 - сложить числа');   
writeln ('3 - вычесть числа');   
writeln ('0 - выход');   
readln (m); 
case m of        //Если не знаешь case то можешь заменить операторами if
1 : goto re;      // Пример if m = 1 then goto re;
2 : goto sum;  // if m = 2 then goto sum; //и т.д
3 : goto razn;   
0 : goto ex; 
end;    

re :   
writeln ('Введите числа (a b)');   
readln (a,b);   
goto menu;   

sum :   
writeln ('Сумма =',a+b);   
goto menu;   

razn :   
writeln ('Разность =',a-b);   
goto menu;   

ex :   
writeln ('До встречи');   
sleep (1000);       // просто задержка перед закрытием на 1с
end.

Насколько мне известно в программирование оператор goto популярностью не пользуется и вообще его стараются избегать