program Hello;var txt:text;c:integer;begin;randomize;assign(txt,'out5.txt');rewrite(txt);for c:=1 to 5 do writeln(txt,random(5));close(txt);end.