Compile and Execute Pascal Online

Program HelloWorld(output);
uses crt;
var
	Text1,text2:string;
	fn1,fn2,fn : integer;
	counter,selesai : Integer;
begin
    selesai := 10;
	fn1 := 0;
	fn2 := 1;
	fn :=0;
	for counter := 1 to Selesai do
	begin
	    fn := fn1 + fn2;
	    writeln(counter:2,' --> ',fn1:2,' + ',fn2:2,' = ',fn:2);
	    fn1 := fn2;
		fn2 := fn;
	end;
end.