решить информатика 8 класс

составим таблицу:

                        | молоко  | лимонад | квас | вода

бутылка |       -          |              +          |      -      |      -

стакан    |          -          |            -           |      -      |      +

кувшин  |          +          |            -            |      -     |      -

банка      |          -            |            -           |      +    |        -

например такие числа

954-459=495

uses crt;

begin

x,y,z: integer;

readln(x,y);

if (x< 0) then begin

if (x> y) then z: =x;

if (y> x) then z: =y;

end else begin

if (x> 0) then begin

if (x> y) z: =y;

if (y> x) z: =x;

end;

write(z);

end.

program av;

var a,b,c,d,e: integer;

begin

writeln('введите числа');

readln(a,b,c) ;

d: =0 ;

if   a mod 2 = 0

then d: =d+1;

if   b mod 2 = 0

then d: =d+1;

if   c mod 2 = 0

then d: =d+1;

  e: =3-d

writeln(d,'количество четных') ;

  writeln(e,'количество не четных') ;

end.