Спасите!!!
В парке растет k хвойных деревьев: сосен – m деревьев, и это на 14 больше, чем елей, кипарисов – на z больше, чем лиственниц, а лиственниц и елей поровну. Остальные деревья – кедры. Сколько кедров растет в парке?
k, m, z вводятся с клавиатуры. Подумайте, какими они могут быть!!! ъ
ДАЮ 60 БАЛЛОВ

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. все незачто ну по сути легкая задача