6 lines
180 B
ObjectPascal
6 lines
180 B
ObjectPascal
begin
|
|
(var i{@var i: integer;@},
|
|
var j{@var j: real;@},
|
|
var c{@var c: char;@}) := (2, 3.4, 'a');
|
|
(var s{@var s: string;@}, var name) := (ReadString,ReadString);
|
|
end. |