Какой логической операции в языке Pascal не существует?

or
xor
nor
not

имя       возраст     занятие

оля         13             пение

петя         14           баскетбол

вася         13             хоккей

катя         15             танцы

коля         11         баскетбол

серёжа     11           футбол

блок смемы не умею

var i: integer

s,n: real;

begin

  repeat

      read(n);

      if n> 0 then s: =s+n

  until n=0;

  writeln(s);

end.

var a,s: real;

i: integer;

begin

  read(a);

  repeat

      i: =i+1;

      s: =s+1/i

  until s> a;

  writeln(i,s);

end.

режим дня трудоголика

проснулся- позавтракал- на работу-домой-поужинал и спать

повторить nраз до самой смерти

var n,count,sum: integer;

begin

    read(n);

    count: =0;

    sum: =0;

    while (n< > 0) do

        inc(count);

        sum: =sum+(n mod 10);

        n: =n div 10;

    end

end.