Что-то здесь не так, а где собсно заявленный "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, чтоб не искать.
И всё равно, что-то здесь смущает...
З.Ы. По
теме