Ввести рост человека.Вывести на экран ВЫСОКИЙ ,если его рост превышает 180 см;НЕ ОЧЕНЬ ВЫСОКИЙ,если рост меньше или равен 180 см,но больше 160 см; МАЛЕНЬКИЙ, если рост меньше либо равен 160 см .написать три теста к программе.

// Запускается под Pascal ABC.NET

// Тест 1:
//     Ввод: 200

//     Вывод: ВЫСОКИЙ

// Тест 2:
//     Ввод: 170

//     Вывод: НЕ ОЧЕНЬ ВЫСОКИЙ

// Тест 3:
//     Ввод: 105

//     Вывод: МАЛЕНЬКИЙ

var

 rost: Integer;

begin

 Write('Введите свой рост (в см): ');

 ReadLn(rost);

 if rost > 180 then

   WriteLn('ВЫСОКИЙ')

 else

   if rost > 160 then

     WriteLn('НЕ ОЧЕНЬ ВЫСОКИЙ')

   else

     WriteLn('МАЛЕНЬКИЙ');

end.