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.