Вот это уже лучше и вроде работает оператор 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 популярностью не пользуется и вообще его стараются избегать
а) 65
б)-76
в) 304
г)-415
Надеюсь правильно qwq