பாசுக்கல் (நிரலாக்க மொழி)

program HelloWorld;uses crt;begin     writeln('Hello World');     readln;end.

program TestControl;uses crt;var x:integer;begin    writeln('enter a number');    readln(x);    if x mod 2=0 then        begin             writeln('it is an even number');        end    else        begin             writeln('it is an odd number');        end;    readln;end.

program TestLoop;uses crt;var x:integer;begin    for x:=1 to 10 do    begin         writeln('Repeat ', x);    end;    readln;end.

program SumOfTwoNumbers;uses crt;function sum(x,y:integer):integer;         begin              sum := x + y;         end;varx,y,z:integer;begin     writeln('Enter a number');     readln(x);     writeln('Enter another number');     readln(y);     z:=sum(x,y);     writeln(z);     readln;end.

program TestFileHandling;uses crt;varx:string;f:text;begin     assign(f,'Example.txt');     reset(f);     while not EOF(f) do     begin          readln(f,x);          writeln(x);     end;     close(f);     readln;end.