Contoh Fungsi Writeln pada Pascal

uses crt;
var a:integer;
begin
clrscr;
for a:=1 to 5 do
writeln(a*2);
writeln(a*10);
readln;
end.


Maka Outputnya seperti dibawah ini:

2
4
6
8
10
50