ПРОЦЕС - всего в алфавите 6 букв
На первое место есть 6 вариантов, на второе 5 (все буквы, кроме первой), на третье 5, на четвёртое 5.
Всего вариантов: 6 * 5 * 5 * 5 = 750
Var
a1,a2:integer;
begin
writeln('Введите а1');
read(a1);
writeln('Введите а2');
read(a2);
a1:=sqr(a1);
a2:=sqr(a2);
if a1>a2 then
writeln('Площадь а1 больше')
else
writeln('Площадь а2 больше');
end.
3 бита, так как 8 различных комбинаций можно закодировать минимум тремя битами.