Ответ:
Здесь одно предложение, поэтому вся информация новая
Автор кто? скажи автора я тебе решу
Код Pascal:
Var
P:byte;
Begin
Write('Введите рост человека: ');ReadLn(P);
if P > 180 then WriteLn('Высокий')
else WriteLn('Не очень высокий')
End.
Пример работы программы:
Введите рост человека: 150
Не очень высокий
Никак. пиши на английском. если хочешь, чтобы была возможность писать на русском, то качай pascal abc