var 
  a,p1: real;
  s: string;

begin
  var p3,p1,p5,p6: integer;
  p1 := 3;
end.