Ученик на контрольной выполнил только одно задание. Сообщение о том, что он
выполнил 2-е задание содержит 3 бита информации. Сколько заданий было в
контрольной?

const

  y = 5;

  x = 2;

var

  x1,x2,y1,y2:integer;

begin

  write('x1 = ');  readln(x1);

  write('y1 = ');  readln(y1);

  write('x2 = ');  readln(x2);

  write('y2 = ');  readln(y2);

  if sqrt(  (x1-x) * (x1-x)  + (y1 - y) * (y1 - y))   <   sqrt(  (x2-x) * (x2-x)  + (y2 - y) * (y2 - y)) then

    writeln('A ближе')

  else

     if sqrt(  (x1-x) * (x1-x)  + (y1 - y) * (y1 - y))   >   sqrt(  (x2-x) * (x2-x)  + (y2 - y) * (y2 - y)) then

       writeln('B ближе')

     else

       writeln('Они на одинковом расстоянии');

readln;

end.

Program start;
var x,y,z:integer;
begin
readln(x,y,z);
If (x mod 2 = 0) and (y mod 2 = 0) and (z mod 2 = 0) then writeln('Кол-во: 3 | Произведение: ' , z*y*x)
else if (x mod 2 = 0) and (y mod 2 = 0) then writeln('Кол-во: 2 | Произведение: ' , y*x)
else if (x mod 2 = 0) and (z mod 2 = 0) then writeln('Кол-во: 2 | Произведение: ' , z*x)
else if (z mod 2 = 0) and (y mod 2 = 0) then writeln('Кол-во: 2 | Произведение: ' , y*z)
else if (x mod 2 = 0) then writeln('Кол-во: 1 | Произведение: ' , x)
else if (y mod 2 = 0) then writeln('Кол-во: 1 | Произведение: ' , y)
else if (z mod 2 = 0) then writeln('Кол-во: 1 | Произведение: ' , z)
else writeln('Все числа нечетные!');

end.