Pascal Program to Generate a Pascal Triangle

This sounds like homwork but also like fun!!

this may not be what is expected and I am really rusty.

type ia = Array[0..102] of integer;

procedure addrow (var r:ia);

VAR I,J:Integer;

H:ia;

begin

I:=2;

while R[i] <> 0 do inc(i); {get positiom of zero at end}

H:=R;

for j:= 1 to UI + 1 do R[j] := H[j-1] + H[j];

end;

var A : ia;

rows , K : integer;

begin

/// input number of rows 2 t0 100 into rows

fillchar (A,sizeof(A),0); {clear matrix}

A[1] :=1;

// print the first row

for K := 2 to Rows do

begin

Addrow (A);

/// print the row

end;

// pause to observe the wonder

end.