Getting Started with the Pascal tutorial, source
Submitted By:
WEBMASTER
Rating:
(Not rated) (
Rate It)
(* Chapter 5 - Program 1 *)
program First_Procedure_Call;
var Count : integer;
procedure Write_A_Header;
begin
Writeln('This is the header');
end;
procedure Write_A_Message;
begin
Writeln('This is the message and the count is',Count:4);
end;
procedure Write_An_Ending;
begin
Writeln('This is the ending message');
end;
begin (* main program *)
Write_A_Header;
for Count := 1 to 8 do
Write_A_Message;
Write_An_Ending;
end. (* of main program *)
