program number; {$APPTYPE CONSOLE} uses SysUtils; var a,b,c,d:integer; i:char; begin for i:='1' to '5' do begin randomize; a:=random(9)+1; b:=random(9)+1; c:=random(9)+1; assign(output, 'number'+i+'.in'); rewrite(output); //a:=5; //b:=9; //c:=7; d:=((a*2+3)*5+b)*10+c; writeln(d); close(output); assign(output, 'number'+i+'.out'); rewrite(output); writeln(a,' ',b,' ',c); close(output); end; end.