помоги пожалуйста с задачей в паскале:
Вводится целое число К. вывести фразу «Я посадил К цветов», согласовав слово "цветы" с числом К. Предусмотреть ситуацию ввода К<0.

Все класс, только программа не работает, как надо.

Ввел 11 - ничего не получил.

Ввел 9 - получил на выводе "Я посадил k цветов"

Ввел 13 - тоже не получил ничего.

просто идеально,спасибо)

Пожалуйста) Я же написал в другом ответе чтобы обращались если надо)

var k, i, j:integer;beginreadln(k);j:=1;if k<=0 thenwriteln('Я не посадил цветы');if ((k mod 10 = 1) and (k<>11)) then writeln('Я посадил k цветок');for i:=12 to 14 do beginj:=j+1;if ((k mod 10 = j) and (k<>i)) then writeln('Я посадил k цветка');end;if k mod 10 >4 thenwriteln('Я посадил k цветов');end.

var  k:integer;begin  Write('Задайте число цветов: ');  Readln(k);  if k=0 then Writeln('Я не посадил ни одного цветка')  else  begin    if k>0 then Write('Я посадил ',k,' цвет')    else    begin      k:=-k;      Write('Я выполол ',k,' цвет')    end;    case k mod 100 of    11..19:Write('ов');    else      case k mod 10 of      1:Write('ок');      2..4:Write('ка');      else Write('ов');      end    end  endend.