Что не так в коде (pascal abc)
type
Human=class
public
name:string;
age:integer;
Height:integer;
end;
var
h:human;
begin
h:=new Human;
writeln(Привет! Я хочу немного узнать о тебе. );
write(как тебя зовут: );
readln(h.name);
write(прекрасно, ,h.name, ,а теперь скажи скоко тебе лет?: );
readln(h.age);
if (h.age>17) then
writeln(Здорово ты уже совершенно летний! );
else
writeln(О ты мальчик! );
write(а скажи ка какой у тебя рост: );
readln(h.Height);
writeln();
writeln(Ну вот и все. Мы собрали программму);
writeln(Тебя зову ,h.name);
writeln(Тебе ,age.);
writeln(Твой рост: ,h.height,см);
writeln();
writeln(спасибо, h.name,.До новых встреч! );
end.
Много чего. переменные в writeln пишут writeln(трололо,h.myvar,лоло), в if работает схема if условие then правило1 else правило2;
Оцени ответ
