Найти ошибку дано 3 цифры распечатать все двухзначные числа begin program: adf; begin var a,b,c : =in tege; begin writeln ('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.