Які оператори можна застосувати для складання запитів при формуванні сповіщень?

Var a,b,c,x:real;
begin 
repeat 
writeln('Введите тип арифм. операции (1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - остановить программу'); 
readln(x); 
if x=1  then   begin   
writeln('Введите 2 числа');   
readln(a,b);   
c:=a+b;   
writeln('ответ: ',c);   
end; 
if x=2  then   begin   
writeln('Введите 2 числа');   
readln(a,b);   
c:=a-b;   
writeln('ответ: ',c);   
end; 
if x=3  then   begin   
writeln('Введите 2 числа');   
readln(a,b);   
c:=a*b;   
writeln('ответ: ',c);   
end; 
if x=4  then   begin   
writeln('Введите 2 числа');   
readln(a,b);   
c:=a/b;   
writeln('ответ: ',c);   
end; 
if x=0 then writeln('Пока!'); 
until x=0;
end.

21 - не может так как не 1 не 2 на 3 не делится
729 - не может так как 72/3 = 24 >9, 72 > 9+9. LhДругое разбиение протеворечит п2
2912 - не может так как 29 > 9+9, 29 не делится нацело на 3, 291 > 9+9,  291/3 > 9

Остальные
[116, 73]
[133, 94]
[148, 129]
[215, 73]
[232, 94]
[247, 129]
[314, 73]
[331, 94]
[339, 129]
[346, 129]
[413, 73]
[430, 94]
[438, 129]
[445, 129]
[512, 73]
[537, 129]
[544, 129]
[559, 1514]
[611, 73]
[636, 129]
[643, 129]
[658, 1514]
[710, 73]
[735, 129]
[742, 129]
[757, 1514]
[834, 129]
[841, 129]
[856, 1514]
[933, 129]
[940, 129]
[955, 1514]
[999, 2718]
Кол-во
{21=>0, 73=>7, 94=>4, 729=>0, 129=>16, 1514=>5, 2718=>1, 2912=>0}

Вообщем ответ 5