var
x :array [0..20] of string;
tmp:integer;
begin
x[0] :='slovo1';
x[1] :='slovo2';
x[2] :='slovo3';
x[3] :='slovo4';
x[4] :='slovo5';
x[5] :='slovo6';
x[6] :='slovo7';
tmp:=random(7);
writeln(x[tmp]);