Уводни део часа :
1. Који су основни типови података у PASCAL  - у ?
2. Какви су то нестандардни типови података  ?
-------------------------------------------------------------------------------------------------------------------
Главни део часа :

1. Дефинисати набројиви тип према следећим дефиницијама :

а) ближа родбина
б) омиљени филмови
в) омиљени аутомобили
г) омиљене музичке групе

2. Одредити које су од следећих наредби некоректне и зашто, ако је дата следећа декларација :

type     godisnjedoba=(zima, prolece, leto, jesen);
var       sezona : godisnjedoba;

a) read(leto);                                                                б) sezona:=jesen;
    writeln(leto);                                                                 writeln(sezona);
   
в) sezona:=zima;                                                         г) sezona:=zima;
    case sezona of                                                            case sezona of
            zima : writeln('zima');                                                    zima : writeln(zima);
            prolece : writeln('prolece');                                           prolece : writeln(prolece);
            leto : writeln('leto');                                                        leto : writeln(leto);
            jesen : writeln('jesen')                                                   jesen : writeln(jesen)
    end;                                                                             end;

Пример 1. Написати програм за израчунавање укупног броја одсутних ученика са наставе за једну радну недељу од понедељка до петка. Уноси се број присутних ученика за сваки дан и број ученика уписаних у одељење.

program nabroj(input, output);
type
      x=(ponedeljak,utorak,sreda,cetvrtak,petak);
      t=array[ponedeljak..petak] of integer;
var i : x;
     a : t;
     u,s : integer;
begin
        writeln('Unesite broj ucenika upisanih u odeljenje');
        read(u);
        writeln('Unesite broj prisutnih');
        s:=0;
        for i:=ponedeljak to petak do
                                              begin
                                                      read(a[i]);
                                                      s:=s + (u - a[i])
                                              end;
        writeln('sa nastave je odsustvovalo  ',s:4,'  ucenika');
        readln;
        readln;
end.

Пример 2. Написати програм којим се описује рад семафора.

program semafor-test(input,output);
type semafor=(zeleno,zuto,crveno);
var boja : semafor;
begin
        writeln('Unesite boju');
        read(boja);
        if boja:=zeleno then writeln('DOZVOLJEN PROLAZ')
                              else
                                    begin
                                           if boja=zuto then writeln('PRIPREMI SE')
                                                             else writeln('ZABRANJEN PROLAZ')
                                    end;
       readln;
       readln;
end.