xxxxxxxxxx
procedure increment(var x: integer; by: integer);
begin
x := x + by;
end;
…
var
n: integer = 4;
begin
increment(n, 2); // now n is 6
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 }