Testova uloha

uses predpokladanyModul
program Neco

type tNazev = string;
     tCislo = word;

var nazevSouboru:tNazev;
    cislo, counter, pom, pom2:tCislo;

begin
//sem inicializace vsech promennych
while not eof do
begin
  read(nazevSouboru);
  cislo:=GetFAttr(nazevSouboru);
  pom:=shl(cislo, 2);
  pom2:=shl(cislo, 8);
  pom:=pom mod 2;
  pom2:=pom2 mod 2;
  if (pom = 1) AND (pom2 = 0) inc(counter);
end

write(counter);
end.
Komentář: nedotaženo.