Информация которая отражает истинное положение дел . называется достоверной
Не забудь поставить как лучший)
4 меньше 5 и меньше 4 т.к. нестрогое условие "<".
INPUT "a="; a 'Начало отрезка
INPUT "b="; b 'Конец отрезка
INPUT "h="; h 'Шаг
x = a
WHILE x <= b
PRINT "x="; x, "y=";
SELECT CASE x
CASE -2 TO 2
PRINT x * x - 1
CASE ELSE
IF x >= 1 THEN
PRINT SQR(x - 1)
ELSE PRINT "Не существует"
END IF
END SELECT
x = x + h
WEND
Var A : Byte;
Begin
Readln(A);
Write('Мне ',A,' ');
Case A mod 10 of
0,5..9 : Writeln('лет');
2..4 : Writeln('года');
1 : Writeln('год');
end;
end.