Program {Имя программы} ;
uses {имена необходимых библиотек через запятую} ;
const
   {описание необходимых констант} ;
var
   {описание необходимых переменных} ;
BEGIN   
{...}

Program Test1;
uses Crt;
const
   c = 10;
var
   a, b : integer;
BEGIN   
{...}

{...}
ReadLn({Имя одной переменной});
ReadLn({Имя другой переменной});
{...}

{...}
ReadLn(a);
ReadLn(b);
{...}

{...}
WriteLn({Имя одной переменной});
WriteLn({Имя другой переменной}, {Текстовая констата} , {Имя еще одной переменной});
{...}

{...}
WriteLn(a);
WriteLn(b, a);
{...}

{...}
if {Условие} then {Оператор 1} else {Оператор 2} ;
{...}

{...}
if a>b then m:=a else m:=b;
{...}

{...}
if {Условие} then {Оператор 1} ;
{...}

{...}
if a>b then m:=a;
{...}

{...}
for i:={Начальное значение} to {Конечное значение} do {Оператор 1} ;
{...}

{...}
for i:=1 to a do writeln(i, '. ', b);
{...}