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

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
  end
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.