3 ms·
Tested at https://www.jdoodle.com/execute-pascal-online/ https://www.jdoodle.com/execute-pascal-online/ Program test(output); var i,x:integer; y:real; begin
by test666v666 5y ago
Tested at https://www.jdoodle.com/execute-pascal-online/ 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.