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

Работает?

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 (который перед строкой)