[Alegun]

Что-то здесь не так, а где собсно заявленный "Hello World"? Это не тот код получился, кириллица не отображается. Вот что с доработкой получилось (и под TP и под делфи)

Код:

program HelloWorld;
{$IFDEF MSWINDOWS}
{$APPTYPE CONSOLE}
{$ENDIF}
uses
{$IFDEF MSWINDOWS}
Windows, SysUtils, CRT32 in 'CRT32.pas';
{$H-}
{$ELSE}
crt;
{$ENDIF}

Var
    otvet:string;
    Label L1, L2;

begin
      Clrscr;
      setconsoleCp(866);
      Writeln('Hello World!!!');
      writeln;
      writeln;
      writeln;
      writeln;
      writeln('Ну как, завершим программу?');
      readln(otvet);
   if otvet='Да, завершим программу' then
        GoTo L1;
      L1:
        Writeln('Вы уверены? (Y/N)');
        if ReadKey = 'y' then
          GoTo L2
        else
        begin
          ClrScr;
          GoTo L1;
        end;
      L2:
         Writeln('Неее, выходить ещё рано!');
end.

На всякий случай, прикладываю CRT32.pas, чтоб не искать.

И всё равно, что-то здесь смущает...

З.Ы. По теме