Flowcart, Pseucode, dan Program Pascal Hitung luas(Lingkaran dan Segitiga)

pseucode : 

deklarasi
const
pi_lingkaran=3.14;
pi_segitiga=0.5;

var
alas,tinggi,jari2,pilih : integer;
l_lingkaran : real;
l_segitiga : real;
tanya : string;

procedure luas_lingkaran;
begin
write(‘MASUKAN NILAI JARI-JARI : ‘);readln(jari2);
l_lingkaran:=pi_lingkaran*jari2*jari2;
writeln(‘HASIL HITUNG LUAS SEGITIGA ADALAH : ‘);

procedure luas_segitiga;
begin
write(‘MASUKAN NILAI ALAS : ‘);readln(alas);
write(‘MASUKAN NILAI TINGGI: ‘);readln(tinggi);
l_segitiga:=pi_segitiga*alas*tinggi;
writeln(‘HASIL HITUNG LUAS SEGITIGA ADALAH : ‘);

deskripsi
clrscr;
if (pilih=1) then
begin
clrscr;
luas_lingkaran;
end
else if (pilih=2) then

begin
clrscr;
luas_segitiga;
end
else if (pilih>2) then
begin
writeln(‘MAAF PILIHAN ANDA TIDAK ADA PADA DAFTAR DI ATAS.’);
end;
end.

program hitung_luas;

program hitung_luas;
uses crt;
const
jawap='YA';
var
alas,tinggi,jari2,pilih : integer;
l_lingkaran : real;
l_segitiga : real;
tanya : string;

procedure luas_lingkaran;
begin
write('MASUKAN NILAI JARI-JARI : ');readln(jari2);
l_lingkaran:=3.14*jari2*jari2;
writeln('HASIL HITUNG LUAS SEGITIGA ADALAH : ',l_lingkaran:3:0,' cm2');
end;

procedure luas_segitiga;
begin
write('MASUKAN NILAI ALAS  : ');readln(alas);
write('MASUKAN NILAI TINGGI: ');readln(tinggi);
l_segitiga:=0.5*alas*tinggi;
writeln('HASIL HITUNG LUAS SEGITIGA ADALAH : ',l_segitiga:3:1,' cm2');
end;

begin
textbackground(10);
repeat
clrscr;
//writeln;
writeln;
textcolor(20);
writeln('********PROGRAM HITUNG LUAS*******');
writeln;
writeln(  '------REKSAGAMA RABBANI------'  );
writeln('##################################');
writeln;
writeln('1.MENGHITUNG LUAS LINGKARAN');
writeln('2.MENGHITUNG LUAS SEGITIGA ');
writeln('---------------------------');
writeln('MASUKAN PILIHAN ANDA : ');
writeln;
textcolor(10);
 read(pilih);
 if (pilih=1) then
 begin
 clrscr;
 luas_lingkaran;
 end
 else if (pilih=2) then
 begin
 clrscr;
 luas_segitiga;
 end
 else if (pilih>2) then
 begin
 textcolor(15);
 writeln('MAAF PILIHAN ANDA TIDAK ADA PADA DAFTAR DI ATAS.');
 end;
 delay(2000);
 clrscr;
 writeln('APAKAH ANDA INGIN MENGULANGI..???');
 delay(1000);
 textcolor(27);
 write('YA ATAU TIDAK..?? ');
 read(tanya)

 until(tanya<>jawap);
end.