A = int(input())
c = 1
c*=100
while a !=0:
if (a\%10)==(c//100):
c=c+1
a=a//10
c=c\%100
print(c)
Вот это скопируйте и вставьте.
program chdast;
var a : integer;
begin
write('Введите двузначное число');
read(A);
if (a mod 10)=(a div 10) then writeln('цифры равны по значению');
if (a mod 10)>(a div 10) then writeln('вторая цифра больше первой');
if (a div 10)>(a mod 10) then writeln('первая цифра больше второй' );
end.
Uses crt;
var i:integer;
begin
for i:=100 to 999 do
if ((i mod 10)<>(i div 100)) and ((i mod 10)<>(i mod 100 div 10)) and
((i div 100)<>(i mod 100 div 10)) then writeln(i);
end.
В КОИ-8 было 32 байта (1 символ кодируется 1байтом =8бит)
В Unicod стало 64 байта (1 символ кодируется 2-я байтами =16 бит)