Free Pascal

program first;

Begin


 * 1) var a, b: real;

begin

ClrScr;

a =1;

b = 2;

writeln('Hello World', a, b);

end.