program entrada_blog;

uses crt;
const pensamiento = M;
type cabeza = array [1..M] of cualquier cosa;
procedure carga (var cabeza);
var
   x:integer;
begin
     for x := 1 to pensamiento do
         readln (cabeza[x]);
end;
var
   head:cabeza;
   i:integer;
begin
     clrscr;
     carga (head);
     i = 0;
     while i<0 do
     begin

         
if head[i] = ALT3 then

             exit
          else
             clrscr;
          i := i+1;
     end;
     wend;
     readkey;
end.