program Simple;

uses
  System;

var
  A: Integer;
begin
  A := 2;
  A := A + 1;
  WriteLn('Hello world!');
  ReadLn;
end.