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

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

{...}
ReadLn({Переменная 1});
ReadLn({Переменная 2});
{...}

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

{...}
WriteLn({Переменная 1});
WriteLn({Переменная 2}, 'Текст' , {Переменная 3});
{...}

{...}
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:={Значение 1} to {Значение 2} do {Оператор 1} ;
{...}

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