Помогите составить простую программу с go to,пожалуйста)

Веселый бред

 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 популярностью не пользуется и вообще его стараются избегать