program FIBONACCI

uses crt;

var

x,y,z, b : integer;

begin

clrscer;

write(‘masukkan nilai batas : ’ );

readln (b) ;

x:=0:y:=0:z:=1;

while (z<b) do

begin

write(z,’ ‘ );

x:=y;

y:=x;

z:=x+y;

end;

readln;

end.

program bintang di pascal

program bintang;

uses crt;

var

x,y,z: integer;

begin

clrscr;

 

write(‘masukkan batas :’);

readln(z);

for x:=1 to z do

begin

 

for y : = 1 to x do

begin

write(‘*’);

end;

writeln;

end;

for x:=1 to z do

begin

for y:=1 to 10 do

begin

if (x+y<=10) then

write(‘ ‘);

else

write(‘*’);

end;

writeln;

end;

readln’;

end.

While looping pada pascal

uses wincrt;
var
a,b,c : longint;
begin
clrscr;
       a:=0;
       while (a<=10) do
       begin
b:=0;
      while (b<=10) do
begin
   write(b,' ');
b:= b+1;
end;
 writeln ('  :  ',a);
a:=a+1;
end;
readln;
end.