program mike;

var 
   q : 0..255;
   w2 : array [1..34] of char;
   fd : string[24];
Procedure Mike;
begin
   write ('Mike ist verheiratet mit Ursula');
end;

begin
   Mike;
   writeln ('Mike ist nett');
      
end.