Pascal2 test

Aus ProgrammingWiki

Archivierte Version vom 2011-01-10T19:42:13+00:00. Aktuelle Version

procedure test(); 
var i:Integer;
    x:Integer;
begin
 i := 10;
 x := 20;
 writeln(i+ ' '+x);
end;

test();