Составьте программу, которая позволяет по возрасту определить, к какой группе относится данный человек (моложе 3 лет — совсем маленький, от 4 до 7 — детсадовский возраст, следующие 7 лет — подросток, от 15 до 20 — самый цвет и т.д. по вашему усмотрению) — Pascal(Паскаль)

var
n:integer;
begin
  writeln(' VVedite Znachenie: ');
  readln(n);
  if n <= 150 then
  begin
      case n of
        0..3: writeln('совсем маленький');
        4..15:writeln('подросток');
        16..30:writeln('самый цвет');
        31..149:writeln('не самый цвет');
      end;
  end
  else
    writeln('столько не живут');
  readln;
end.

uses crt;
var
n:integer;
y: char;
begin
y := 'Y';
while y = 'Y' do Begin
clrscr;
  writeln(' VVedite Znachenie: ');
  readln(n);
  if n <= 150 then
  begin
      case n of
        0..3: writeln('совсем маленький');
        4..15:writeln('подросток');
        16..30:writeln('самый цвет');
        31..149:writeln('не самый цвет');
      end;
  end
  else
    writeln('столько не живут');
    writeln('повторить?(Y/N)');
  readln(y);
end;
end.