Script Penurunan (DEC.PAS)

(Script 1)

uses wincrt;
var I:integer;
begin clrscr;
I:=0;
REPEAT
writeln(I);
Inc(I);
UNTIL I=21;
readln;
end.
---------------------------------------------------------------

(Script 2)

uses wincrt;
var I:integer;
begin clrscr;
I:=0;
REPEAT
writeln(I);
Inc(I,5);
UNTIL I=105;
readln;
end.
----------------------------------------------------------------

Penurunan (DEC.PAS)

uses wincrt;
var I:integer;
begin clrscr;
I:=100;
REPEAT
writeln(I);
dec(I);
UNTIL I=85;
readln;
end.

PROGRAM MINE

program mine;
uses wincrt;
var i : integer;

procedure print(var j: integer);

function next(k: integer): integer;
begin
next := k + 1
end;

begin
writeln('The total is: ', j);
j := next(j)
end;

begin
i := 1;
while i <= 10 do print(i)
end.