Поскольку 2^5=32, значит такое сообщение содержит 5 бит информации
1 отношение между двумя множествами объектов
2 отношение между объектами и множеством объектов
3) отношение между двумя объектами
var a,b,c,y,x,min,max:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третье число');
readln(c);
writeln('Введите четвертое число');
readln(x);
writeln('Введите пятое число');
readln(y);
if a > b then max :=a else max :=b;
if max < c then max:=c;
if max < y then max:=y;
if max < x then max:=x;
writeln('Максимальное число = ',max);
end.
Невозможность или сложность создания реальной физической модели
Var a:integer;
begin
read(a);
if a>0 then a:= sqr(a)
else write('число отрицательное');
end.