Вот это уже лучше и вроде работает оператор 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 популярностью не пользуется и вообще его стараются избегать
Она наиболее простая. И двоичная система счисления имеет ряд преимуществ перед другими системами: для ее реализации нужны технические устройства с двумя устойчивыми состояниями (есть ток - нет тока, намагничен - не намагничен и т.п.), а не, например, с десятью, - как в десятичной;представление информации посредством только двух состояний надежно и помехоустойчиво;возможно применение аппарата булевой алгебры для выполнения логических преобразований информации;двоичная арифметика намного проще десятичной.
Var a, b: integer
Begin
readln (a, b);
writeln (a*b);
End.
Объяснение: