Tested at https://www.jdoodle.com/execute-pascal-online/ Program test(output); var i,x:integer; y:real; begin for i:=1 to 10 do begin x:=i; y:=(x*4)/2.71; writeln(x,y); end; end.
Program test(output); var i,x:integer; y:real; begin for i:=1 to 116000 do begin x:=i; y:=(x*4)/2.71; writeln(x,y); end; end.
Tested at https://www.jdoodle.com/execute-pascal-online/ Program test(output); var i,x:integer; y:real; begin for i:=1 to 10 do begin x:=i; y:=(x*4)/2.71; writeln(x,y); end; end.
Program test(output); var i,x:integer; y:real; begin for i:=1 to 116000 do begin x:=i; y:=(x*4)/2.71; writeln(x,y); end; end.