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.