uses crt,pocrt;
begin
 clrscr;
 fwritezent(1,40,2,'Hello world!');
 fwritezent(1,40,6,'Hier ist der Portfolio...');
 Refresh;
 if readkey=#13 then;
 clrscr;
end.