3. изобразить дерево возможных исходов при троекратном бросании монеты.

                                    x1 орёл   , x2   решка       x2 орёл   , x1   решка              

                            x2 орёл   , x1   решка     |             |       x1 орёл   , x2   решка

          x3 орёл                 /             \             |             |             /             \           x3 решка

3                         орёл     решка   орёл   решка     орёл   решка   орёл   решка

                            \             \             \             |             |             /           /           /

2                                         орёл       решка             орёл         решка

                                                \               \                   /               /

1                                                         орёл           решка

в не указан   шаг изменения x , допустим он равен 1

var

x,y: real;

begin

x: =1;

while x< =10 do

begin

y: =1/x-5;

writeln(y: 8: 2);

x: =x+1;

end;

end.

1)

var a,b,c,d: real;

begin

  read(a,b);

  c: =(a+b)/2;

  d: =2*a*b;

  if a> b then begin

    a: =d;

    b: =c;

  end;

  if a< b then begin

  a: =c;

  b: =d;

  end;

  writeln(a,' ',b);

end.

2)

var a,b: integer;

begin

  read(a,b);

  if (a< 1) or (a> 31) then writeln(' день введен неправильно');

  if (b< 1) or (b> 12) then writeln(' месяц введен неправильно');

end.

3)

var a,b,c: real;

begin

  read(a,b,c);

  if (a> b)and(a> c)then writeln(a);  

    if (b> a)and(b> c)then writeln(b);

  if (c> b)and(c> a)then writeln(c);

end.