Перемножение двух логических переменных (Pascal)

[Kalevi]

Разработать алгоритм для вычисления произведения двух логических переменных А и В. Использовать алгоритм разветвления.
Вот такой код написал, но тут у меня нет булевой функции. Значит неправильно получается?

uses crt;
Var A, B, Z: integer;
C1:char;

Begin
repeat
clrscr;
     Write(‘A=’);
     Read(A);
     Write(‘B=’);
     Read(B);

     begin;
             if (A=0) and (B=0) then
             writeln(‘Z=0’)
             else if (A=1) and (B=0) then
             writeln(‘Z=0’)
             else if (A=0) and (B=1) then
             writeln(‘Z=0’)
             else if (A=1) and (B=1) then
             writeln(‘Z=1’)
     end;

     C1:=readkey;
      until C1=’n’;

End.

[evg_m]

function LogicMulti(a,b: ??????): ???????
begin
  .............
end;

  ...
  Read(a);
  Read(b);
  ...

  z:=LogicalMulti(a,b);
  WriteLn('Z=', z);
  ...

[Аватар]

двух логических переменных А и В

Коль логических, то тип видимо Boolean

Использовать алгоритм разветвления

Можно так

if A and B then writeln(‘Z=True’) else writeln(‘Z=False’);