[NumLock]

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  Windows, SysUtils;

begin
  SetConsoleOutputCP(1251);
  Writeln('Решение уравнений 4 степени по методу Энцо и Дино Феррари');

  (* to do *)
  
  Writeln('Press Enter key...');
  Readln;
end.