PROGRAM MicoPas2;          {Programmname}

USES Crt;                  {Einbindung einer Unit}

PROCEDURE Initialisiere;   {Prozedur-Deklaration}
BEGIN                      {los geht's...}
 ClrScr;                   {CLeaR SCReen, l”sche Bildschirm}
END;                       {das war's!}

PROCEDURE Ausgabe;         {Prozedur-Deklaration}
BEGIN                      {los geht's}
 WriteLn('Hallo Welt!');   {Ausgabe}
 ReadLn;                   {Auf RETURN warten}
END;                       {das war's}

PROCEDURE Abfrage;         {Prozedur-Deklaration}
VAR Name : STRING;         {Variablen-Deklaration}
BEGIN                      {los geht's}
 Write('Wie heiát Du? ');  {Ausgabe OHNE Zeilenvorschub!}
 ReadLn(Name);             {Einlesen in Variable NAME}
 WriteLn('Hallo ',Name);   {Ausgabe von Text+Variable}
 ReadLn;                   {Auf RETURN warten}
END;                       {das war's}

BEGIN                      {Hauptprogramm}
 Initialisiere;            {Prozedur-Aufruf}
 Ausgabe;                  {"}
 Abfrage;                  {"}
END.                       {Alles vorbei!}