Uses crt; var k , m ,z,c,x,rez,ked:integer; begin clrscr; writeln('введите число деревьев'); readln(k);{число деревьев} writeln('введите сколько сосен'); readln(m);{сосны} if m>13 then begin c := m-14;{ели} writeln('введите на скоко больше кипорисов чем листвениц'); readln(z); x:=c;{лиственицы} rez:=c+z+x;{сумма} ked:=k-rez; writeln('кедров ',ked); end else writeln('ошибка сосен должно быть больше 13'); end. все незачто ну по сути легкая задача