1) Користувач вводе 3 числа
2) Якшо введено не число то заміняєш його на рандомне число від 1 до 35
3) Запитуєш користувача що він хоче вивести на екран:
"0" - суму 3-х чисел
"1" - добуток
"2" - різницю 1-го і 3-го
"3" - добуток 1-го на 3-тє поділений на 2-ге число
"4" - квадратний корін першого мінус кубічний корін 2-го і це все помножити на 3-тє число в 4 ступені
"5" - закінчити програму
"-1" - дати можливість ввести числа заново
4) після кожного вибору від 0 до -1 запитуєш знову

PascalABC.NET ₃.₆.₃.₂₅₇₇## var b: boolean; repeat  if b then Writeln();  if b then b := False;  Print('Введите 3 числа:');  var a := ArrGen(3, i -> TryRead(i) ? i : Random(1,35));  Println($'Исходные числа:', a.JoinToString(', ') + '.');  repeat    Print('Что вывести на экран? (0, 1, 2, 3, 4, 5, -1):');    var x: integer;    x := TryRead(x) ? x : 100;    case x of      0: Println('  результат:', a.Sum);      1: Println('  результат:', a.Product);      2: Println('  результат:', Abs(a[0] - a[2]));      3: Println('  результат:', a[0] * a[2] / a[1]);      4: Println('  результат:', (a[0]**(1/2) - a[1]**(1/3)) * a[2]**4);      5: exit;      -1: b := True;      else Println('  неверный ввод');    end  until buntil not b

Пример работы: