П р и м е р 1. Печать отсчета цифр при старте.
program START;
var SEC: integer;
begin
writeln ('До старта осталось ...');
for SEC := 10 downto 1 do
writeln (SEC:4);
writeln ('ноль'); writeln ('Старт !!')
end.
uses crt;
var i:integer;
Begin
write('Через сколько секунд отключиться: ');
readln(i);
sleep(i*1000); // Спим I секунд
write('Время пришло'); // Пишем "Время пришло" и программа завершается
end.
В данном примере управляющая переменная SEC принимает значения типа INTEGER, однако в Паскале она определена как переменная ординального типа и, следовательно, может принимать значения типа CHAR или принадлежать перечислимому типу, как показано в примере 2.
П р и м е р 2 . Подсчет числа часов рабочей недели.
program WORKTIME;
type DAYS = (MO, TU, WE, TH, FR, SA, SU);
var DEN: DAYS; WT: integer;
begin
WT := 0;
for DEN := MO to SA do
if DEN <> SA then WT := WT + 8
else WT := WT + 7; writeln (WT);
end.