ajutati-ma va rog la informatica...subprogramare in pascal

program lucr4a;

 uses

   crt;

var

 a,b,c,d:integer;

 med:real;

  function

           media(a,b,c,d:integer) : real;

           var

              med:real;

          begin

          med:a+b+c+d)/4;

          media:=med;

          end;

 begin

  clrscr;

  writeln('introduceti 4 numere intregi a,b,c,d : ');

  write('a=');readln (a);

   write('b=');readln (;

   write('c=');readln (c);

    write('d=');readln (d);

 med:=media(a,b,c,d);

 writeln('media aritmetica a numerelor ',a,'',b,'',c,'',d,' este: ' , med:3:3);

 readkey

end.

 

apoi trebuie de fakut : de skris procedura subprogramului pascal pentru calcularea valorilor logice not,or,and ...