15 lines
226 B
ObjectPascal
15 lines
226 B
ObjectPascal
var a: array [1..3] of integer := (2,3,5);
|
|
|
|
var p: record
|
|
name: string;
|
|
age: integer;
|
|
end;
|
|
|
|
var s: set of integer := [1,3,7];
|
|
|
|
begin
|
|
p.name := 'Иванов'; p.age := 20;
|
|
writeln(a);
|
|
writeln(p);
|
|
writeln(s);
|
|
end. |