menentukan nilai maksimal dan minimal dalam pascal

ini ada lagi program untuk menentukan nilai maksimal dan minimal..

program minmax;
uses crt;
var a,b,c : integer;

procedure max;
begin
if (a>b) and (a>c) then
writeln(‘Jadi nilai maksimal dari ketiga bilangan tersebut adalah ‘,a);
else if (b>a) and (b>c) then
writeln(‘Jadi nilai maksimal dari ketiga bilangan tersebut adalah ‘,b);
else
writeln(‘Jadi nilai maksimal dari ketiga bilangan tersebut adalah ‘,c);
end;

bisa dibilang program besar

hheee,, saya ndag tahu mau memberi judul apa tulisan ini..

saya bwad tulisan ini karena ada keluhan dari teman-teman yang katanya mereka di beri tugas untuk membuat program yang jumlahnya minimal 250 baris dalam pascal [addehh]..
sebenarnya itu mudah sekali…

deret fibonacci

assalamu alaikum,,
hheeee,,,,

tugas iny yg diberikan oleh asisten lab untuk kelas C2,, quu mw berbagi untuk program iny…

program DeretFibonacci;
uses crt;
var i,n,x,y,z: byte;