Program tebak angka

program tebekangka;
uses wincrt;
var x,t:integer;
    w:boolean;
begin
randomize;
x:=random(10);                                                                            
writeln('progaram tebakan angka');
w:=false;
while x<>t do
begin
writeln('angka tebakan anda');read(t);
if x < t then
begin
writeln('kurang kecil');
end
else if x > t then
begin
writeln('kurang besar');
end
else
begin
write('benar');
 w:=true;
end
end;
End.

program segitiga pascal

program segitiga;
uses wincrt;
var x,y,n:integer;
begin
writeln('berapa n=?');readln(n);
for x:= n downto 1 do
begin
writeln;
for y:= x downto 1 do
begin
write('n');
end;
end;
end.