[Страдалецъ]

Переделайте вывод под Мемо:

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var
 i,n: Integer;
 s: String;
begin
 n := 1;
 for i := 100 to 999
 do begin
    s := IntToStr(i);
    if (s[1] in [s[2],s[3]]) or (s[2] in [s[1],s[3]]) or (s[3] in [s[2],s[1]])
    then Continue;
    Write(s:4);
    if n mod 18 = 0 then WriteLn;
    Inc(n);
    end;
 ReadLn;
end.