22 lines
238 B
ObjectPascal
22 lines
238 B
ObjectPascal
procedure p;
|
|
var
|
|
x,y: integer;
|
|
s: string;
|
|
begin
|
|
var p1: integer;
|
|
end;
|
|
|
|
function f: integer;
|
|
var
|
|
a: real;
|
|
p1,s,ffff: integer;
|
|
begin
|
|
var p1,s,d: integer;
|
|
end;
|
|
|
|
var a,p1: real;
|
|
|
|
begin
|
|
var p3,p1,p5,p6: integer;
|
|
p1 := 3;
|
|
end. |