xxxxxxxxxx
type
months = (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec);
Summer = Apr Aug;
Winter = Oct Dec;
xxxxxxxxxx
type
days, age = integer;
yes, true = boolean;
name, city = string;
fees, expenses = real;
xxxxxxxxxx
function name(argument(s): type1; argument(s): type2; ): function_type;
xxxxxxxxxx
Function Func_Name(params ) : Return_Value;
Procedure Proc_Name(params );
xxxxxxxxxx
type
Books = record
title: packed array [1..50] of char;
author: packed array [1..50] of char;
subject: packed array [1..100] of char;
book_id: integer;
end;
xxxxxxxxxx
if condition then begin statement(s) end;
if condition then statement;
xxxxxxxxxx
while condition do begin statement(s) end;
while condition do statement;
xxxxxxxxxx
with variable do begin statement(s) end;
with variable do statement;
xxxxxxxxxx
(* This is a multi-line comments
and it will span multiple lines. *)
{ This is a single line comment in pascal }