โครงสร้างภาษาปาสคาล

1. ส่วนประกาศ (declaration part)
2. ส่วนคำสั่ง (statement part)

ส่วนประกาศ (declaration part)
PROGRAM Average_1; (*Declaration part*)
Var Sum, N, data : integer;
average : real;
ส่วนคำสั่ง
Begin (*main program*)
Write(‘The program will calculate the average of’); (*output statement*)
Write(‘ five integers you enter through the keyboard..’);
WriteIn;
sum :=; (*assignment statement*)
N :=1;
WHILE N <=5 Do (*while loop*)
begin
Write(‘Please enter the number :’);
ReadIn(data); (*input statement*)
sum :=sum+data;
N :=N+1; (*end of while loop*)
End;
Average :=sum5;
Write(‘The average of five numbers is’ ,Average : 6:2);
End. (*end of program*)

ตัวอย่างการทำงานของโปรแกรม

The program will calculate the average of five
Integers you enter through the keyboard…..
Please enter the number : 0
Please enter the number : 3
Please enter the number : 4
Please enter the number : 8
Please enter the number : 12
The average of five numbers is 13.50