01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / METHOD

program method;
uses crt;

type tperson=object
     name :string[30];
     group:string[5];
     mark :integer;
     procedure init(ne,gp:string; mk:integer);
end;

procedure tperson.init (ne,gp:string; mk:integer);
begin
name:=ne;
group:=gp;
mark:=mk;
end;

var bauman:array[1..3] of tperson;

begin
clrscr;
bauman[1].init('HЁЄ®« © €ў ­®ў','ќ1-21',5);
bauman[2].init('Ivan','OGO',4);
end.