uses crt;
var
i,j,b2,sat:byte;  {i ve j döngülerde kullanmak için oluşturduğumuz değişkenler sat da kaç satırlık pascal üçgeni oluşturucağımız değerini kullanıcıdan alıp saklamak için kullanıcaz}
dizi:array[1..100,1..100] of integer;{Burdaki Matrisimizde ilk kısım satır ikinci kısım ise satır içi değerleri taşıyıcak bizim için}
begin
writeln('Kac satir pascal ucgeni cizilicek :'); {Mesaj yazdırdık}
readln(sat);{satır sayımızı kullanıcıdan aldık}
dizi[1,1]:=1;{pascal üçgeninin ın üst 2 satırını elle girdik zaten sabit oldukları için}
dizi[2,1]:=1;
dizi[2,2]:=1;
for i:=3 to sat do  {ilk iki satırı elle girdiğimiz için işlemlere 3 den başlayıp satır satır işlem yaparek devam ediyoruz}
	begin
	for j:=1 to i do{i. satırdaki hesaplamaları yapmak için 2. döngümüze başladık}
		begin
		if (j=1) or (j=i) then {pasca üçgeninde baş ve sonlarda sabit 1 değeri vardır bu özel durumları kontrol ettirip matrisimize ekledik}
			begin
			dizi[i,j]:=1;
			end else
			begin
			dizi[i,j]:=dizi[i-1,j-1]+dizi[i-1,j];{pascal üçgenindeki mantık x ve x+1 inci ile toplayıp bi alt a eklemedır aynı mantıkla formülümüzü oluşturup matrisimize işlem sonucunu atadık.}
			end;
		end;
	end;
for i:=1 to sat do {matrisimizi yazdırıyoruz}
	begin
	for j:=1 to i do
		begin
		write(dizi[i,j]);write(' ');
		end;
		writeln('');
		end;
writeln('MeslekForum.com');
readln;{işlemler biter bitmez kapanmasın diye bir deger girimini bekliyoruz..}
end.