Programalama > PASCAL

PROGRAM LOTO;
uses crt;
label don,dongu;
var
gina:char;
lt1,lt2,lt3,lt4,lt5,lt6:integer;
begin
clrscr;
textcolor(11);
don:
clrscr;
Writeln('                 LOTO TAHMIN PROGRAMI');
writeln;
Writeln('Numaralar');
randomize;
lt1:=random(49);
lt2:=random(49);
lt3:=random(49);
lt4:=random(49);
lt5:=random(49);
lt6:=random(49);
Writeln(lt1,'-',lt2,'-',lt3,'-',lt4,'-',lt5,'-',lt6);
if (lt1=0) or (lt2=0) or (lt3=0) or (lt4=0) or (lt5=0) or (lt6=0) then
goto don;
if (lt1=lt2) or (lt1=lt3) or (lt1=lt4) or (lt1=lt5) or (lt1=lt6) then
goto don;
if (lt2=lt3) or (lt2=lt4) or (lt2=lt5) or (lt2=lt6) then
goto don;
if (lt3=lt4) or (lt3=lt5) or (lt3=lt6) then
goto don;
if (lt4=lt5) or (lt4=lt6) then
goto don;
if (lt5=lt6) then
goto don;
gina:=readkey;
if gina=#27 then goto dongu
else
goto don;
dongu:end.