Пожалуйста посчитайте найти ошибкудано 3 цифры распечатать все двухзначные числа begin program: adf;beginvar a,b,c :=in tege; beginwriteln ('write');read (a,b,c);writeln (a,b);writeln (b,a);writeln (a,c);writeln (c,a);writeln (b,c);writeln (c,b);end

Ты не правильно оформил код вот правильный , НО ЭТО РАБОТАЕТ ТОЛЬКО ЕСЛИ ТЕБЕ НАДО НАЙТИ ДВУХЗНАЧНЫЕ ЧИСЛА ИЗ ТРЁХ ВВЕДЁННЫХ   
program qwe;var a, b, c : LongInt;beginread (a,b,c);if a div 100 = 0 then write (a,' ');if b div 100 = 0 then write (b,' ');if c div 100 = 0 then write (c,' ');end.