xxxxxxxxxx
type
rfile = file of real;
ifile = file of integer;
bfile = file of boolean;
datafile = file of record
arrfile = file of array[1..4] of integer;
var
marks: arrfile;
studentdata: datafile;
rainfalldata: rfile;
tempdata: ifile;
choices: bfile;
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 }