program veletl;
uses crt;
  var c: char;
      vsz,i,j:integer;
begin
   textbackground(blue);
   clrscr;
   for j:=1 to 12 do
   begin
     i:=j mod 3 ;
     while i<=70 do
     begin
         gotoxy(i,j*2); write('r ” p i  ');
         i:=i+9;
     end;

   end;
   window(28,8,62,17);
   textbackground(blue);
   clrscr;

      window(29,9,61,16);
      textcolor(white);
      textbackground(red);
      clrscr;


      writeln('********************************');
      writeln('*                              *');
      writeln('*                              *');
      writeln('*                              *');
      writeln('*                              *');
      writeln('*                              *');
      writeln('*                              *');
      write('********************************');
      window(30,10,60,15);
      gotoxy(1,1);
      writeln('µldozat keres‚s r”pihez':25);



   randomize;
   c:=#20;
   while c<>#27 do
   begin
      vsz:=random(25)+1;
         gotoxy(15,4);
      write(vsz);
      c:=readkey;
   end;
   readln;
end.