Даны a1, a2, a3. определить, есть ли среди них переменная, значение которой лежит в диапазоне от 5 до 10? если такой переменной нет, вывести соответствующее сообщение

Program asd; var a1,a2,a3: integer;   sr: real; begin write('введите а1: ');   readln(a1);   write('введите a2: '); readln(a2); write('введите а3: '); readln(a3); if (a1> =5) and (a1< =10) then writeln('есть.  ',a1)    else    if (a2> =5) and (a2< =10) then writeln('есть.  ',a2)    else    if (a3> =5) and (a3< =10) then writeln('есть.  ',a3)  else      writeln('нету.') end.

Буквы. ударные или безударные слоги.  сам знаки могут выглядеть как угодно, например, точка-тире.   на ум приходят пдд. напр, на светофоре знак красного человечка "стой", зеленого "иди" и т.д.

1)

vara, b: integer;

beginreadln(a, b); if (a div 10 + a mod 10) > (b div 10 + b mod 10) thenwriteln('сумма цифр ', a, ' больше')elsewriteln('сумма цифр ', b, ' больше'); end.

2)

vara: integer;

beginreadln(a); writeln((a mod 10) * 10 + a div 10); end.

3)

vara: integer;

beginreadln(a); if ((a div 100) = (a mod 100) div 10) or ((a div 100) = (a mod 10)) or ((a mod 100) div 10 = (a mod 10)) thenwriteln('есть 2 одинаковые цифры')elsewriteln('нет 2-х одинаковых цифр'); end.