// PascalABC.NET 3.3, сборка 1634 от 14.02.2018// Внимание! Если программа не работает, обновите версию!type Human=class public Name:string; Age:string; Height:string; end;begin var h:=new Human; Write('Привет, как тебя зовут:'); Readln(h.Name); Write('Здорово ' ,h.Name,', а скажи-ка сколько тебе лет:'); Readln(h.Age); if (h.Age).ToInteger>18 then Writeln('Здорово ты уже совершеннолетний!') else Writeln('Ой! Да ты ещё совсем мал.'); Write('Окей, а какой же твой рост (см) :'); Readln(h.Height); Writeln('Вот результаты. Твоё имя - ',h.Name,', тебе ' ,h.Age, ' лет, а рост - ',h.Height ,'см')end.
Я не совсем понял смысла вводить тут класс, потому что работа с ним ведется, как с обыкновенной записью. Замените начало кода программы нижеследующим и убедитесь, что ничего не изменится.type Human=record Name:string; Age:string; Height:string; end;begin var h:Human;