11 lines
73 B
ObjectPascal
11 lines
73 B
ObjectPascal
type
|
|
r=record
|
|
x:integer;
|
|
end;
|
|
|
|
var rr:r;
|
|
|
|
begin
|
|
rr.x:=1;
|
|
readln;
|
|
end. |