12 lines
157 B
ObjectPascal
12 lines
157 B
ObjectPascal
type Pupil = record
|
|
name: string;
|
|
age: integer;
|
|
end;
|
|
|
|
var p: Pupil;
|
|
|
|
begin
|
|
p.name := 'Петрова';
|
|
p.age := 18;
|
|
writeln(p.name,' ',p.age);
|
|
end. |