na, bénáztam egy kicsit a dologgal, de így végre mûködik:
program lottoszamok;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a,b,c,d,e: byte;
begin
// Insert user code here
randomize;
a:=random(90)+1;
b:=a;
while b in [a] do
b:=random(90)+1;
c:=b;
while c in [a,b] do
c:=random(90)+1;
d:=c;
while d in [a,b,c] do
d:=random(90)+1;
e:=d;
while e in [a,b,c,d] do
e:=random(90)+1;
write(a,' ',b,' ',c,' ',d,' ',e);
readln;
end.