Дано три цифры вывести все возможные трехзначные числа пишет ожидался оператор 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 Project1;

var 
 i, j, k : Byte;
begin 
 Writeln('трехзначные числа где есть 2 од. цифры:');  for i := 1 to 9 do 
 for j := 0 to 9 do 
 for k := 0 to 9 do 
 if (i = j) or (j = k) or (i = k) then Writeln(i, j, k); 
 Readln;
end.

Пробел = TAB (который перед строкой)