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