Compile and Execute Pascal Online

Program HelloWorld(output);
var i,num : integer;
begin
i:=0;
  writeln('Enter the number of terms u want to be calculated');
  readln(num);
  If (num/round(num)) <> 1 then
  begin
  writeln('Please Input an intger');
  end;
  if (num=1) then
  writeln('The answer is 1');
  else while (i<=num) do
  begin
  num := num * 10^(i + 1;
  i:=i+1;
  end;
  writeln('The answer is ',num);
end.