program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,windows;
  var A,B,Summ:integer;
  TmpStr:pchar;
begin
  TmpStr:=' ';
  CharToOem('Введите значение двух целых чисел',TmpStr);
  write(TmpStr);
  readln(A,B);
  Summ:=A+B;
  writeln(Summ);
  readln;

end.

BOOL CharToOem(
LPCTSTR lpszSrc,
LPSTR lpszDst
);