Веселый бред
label metk;
begin
metk :
writeln ('Хочешь выйти из программы? (Enter)');
readln ();
writeln ('Noooooo HaHaHaHa HAA HaHa!!!');
writeln ('NEVER!!!');
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 популярностью не пользуется и вообще его стараются избегать