Составить в паскале программу: вводится целое число с. если -9< =c< =9 вывести величину числа в словес ной форме с учетом знака, в противном случае - сообщение и повторный ввод.

Var
  c:shortint;
begin
  while true do
  begin
    Write('Введите число от -9 до 9: ');
    Readln(c);
    if (c>=-9) and (c<=9) then break;
    Writeln('Неверный ввод')
  end;
  if c<0 then
  begin
    Write('минус ');
    c:=-c;
  end;
  case c of
  0:Writeln('ноль');
  1:Writeln('один');
  2:Writeln('два');
  3:Writeln('три');
  4:Writeln('четыре');
  5:Writeln('пять');
  6:Writeln('шесть');
  7:Writeln('семь');
  8:Writeln('восемь');
  9:Writeln('девять')
  end
end.