Каждую переменную обозначим отдельной буквой.
См приложен
разработать базу данных...
1 Надя, 2 Саша,3 Женя ,4 Миша,5 Катя
Код Pascal:
Var
P:byte;
Begin
Write('Введите рост человека: ');ReadLn(P);
if P > 180 then WriteLn('Высокий')
else WriteLn('Не очень высокий')
End.
Пример работы программы:
Введите рост человека: 150
Не очень высокий