Pascal2 test

Wiki-Quelltext dieser Seite.

<language>Pascal2</language>
<code id="4d2b042b0b617">
procedure test(); 
var i:Integer;
    x:Integer;
begin
 i := 10;
 x := 20;
 writeln(i+ ' '+x);
end;

</code>

<eval id="4d2b042b0b693">
test();
</run>