Двоичная система счисления.
Для начала переведём эти числа в двоичную систему счисления:
36 = 100100 - A
4 = 100 - B
следовательно:
A +B = 101000
B - A = ....;
A * B = 10010000
A ∧ B= 10010000
A⊕B= 101000
var a, b:integer;
begin
writeln ('Введите стороны a и b');
writeln ('Введите сторону a');
readln (a);
writeln ('Введите сторону b');
readln (b);
writeln;
writeln ('Периметр = ', (a+b)*2);
writeln ('Площадь = ', a*b);
readln;
end.