membuat segitiga dengan pascal

kali ini saya akan menampilkan script program segi tiga yang mana segitiga tsb hanya menampilkan  sisi miringnya saja.

uses wincrt;
var d:integer;
    a,b,c:byte;
    ulang:string;
begin
while ulang<>'t' do
begin
write('panjang sisi miring :');readln(a);
d:=a*2;
if a>=1 then
begin
write('Alas pada segi3 sama kaki : ',d);
b:=0;
gotoxy(10,10);
write('*');
repeat
b:=b+1;
       begin
       gotoxy(10+2*b,10);write('*');
       gotoxy(10+2*b,10-b);write('*');
       end;
until b=a;
c:=0;
repeat
c:=c+1;
      begin
      gotoxy(10+a*2+c*2,10);
      write('*');
      gotoxy(10+a*4-c*2,10-c);
      write('*');
      end;
until c=a;
end
else
begin
write('alas pada segi3 sama kaki : ',a);
end;
gotoxy(0,25);readln(ulang);
clrscr;
end;
end.

contoh hasil dari programnya seperti ini

program ascii dengan pascal

program ascii;
uses wincrt;
var karakter : char ;
    askii: integer;
begin
writeln('program menentukan ASCII');
write('masukan karakter = ');
readln(karakter);
writeln('');
writeln('');
writeln('karakter yang dimasukan : ',karakter);
askii:= ord(karakter);
writeln('ascci karakter tersebut adl : ',askii);
end.