Для передачи по каналу связи сообщения, состоящего только из букв А, Б, В, Г, решили использовать неравномерный по длине код: A=11, Б=011, В=010. Как нужно закодировать букву Г, чтобы длина кода была минимальной с наименьшим числовым значением, и допускалось однозначное разбиение кодированного сообщения на буквы?

Var a, b, x1, x2, y1, y2, s, p: real;
begin
write('Введите через пробел x1 и y1: ');
read(x1, y1);
write('Введите через пробел x2 и y2: ');
read(x2, y2);
a:=x2-x1;
b:=y1-y2;
s:=a*b;
p:=2*(a+b);
writeln('S = ', s);
writeln('P = ', p);
end.

Делать подобное контрпродуктивно, слишком много ненужного кода.

var x1, x2, y1, y2, s, p: real;
function a(x1, x2: real): real;
begin
a:=x2-x1;
end;
function b(y1, y2: real): real;
begin
b:=y1-y2;
end;
begin
write('Введите через пробел x1 и y1: ');
read(x1, y1);
write('Введите через пробел x2 и y2: ');
read(x2, y2);
s:=a(x1, x2)*b(y1, y2);
p:=2*(a(x1, x2)+b(y1, y2));
writeln('S = ', s);
writeln('P = ', p);
end.

тк Борисов жил с ученым из Ярославля, то Борисов не оттуда и не с Москвы и Санкт-Петербурга. следовательно, он с Новосибирска

Григорьев не Москвич и не с Ярославля. и теперь понятно, что не с Новосибирска. следовательно, он с Санкт-Петербурга

Егоров не с Москвы, остается один вариант, он с Ярославля

а Викторов значит с Москвы

можно сделать таблицу (по ней легко решать такие задачи):

                  Москва.   Новосиб.   С-п.   Ярославль.

Борисов.       -                 +               -              -

Викторов.     +                -                -              -

Григорьев.   -                 -                +             -

Егоров.         -                 -                -              +