Algoritma keliling persegi panjang

1. Gambarlah Flowchart Mencari Keliling Persegi Panjang
2. Buatlah program dengan pascal mencari Keliling Persegi Panjang
3. Algoritma menghitung keliling prsegi panjang

Algoritma menghitung keliling prsegi panjang:
1. Tulis berapa angka panjang dan lebar dari persegi panjang
2. Tulis rumus keliling persegi panjang, yakni : K = 2 x (p+l)
ket : p:panjang l: lebar
3. Masukkan angka kedalam rumus dan hitung
4. Hasil

flowchat : 

uses crt;
var  panjang, lebar, luas, keliling, kode: integer;
begin
clrscr;
write('1. hitung luas');
write('2. hitung keliling');
writeln;
write('masukkan kode (1..2) : ');readln(kode);
case kode of
 1: begin
    writeln('menghitung luas persegi panjang');
    write('masukkan panjang:');readln(panjang);
    write('lebar : ');readln(lebar);
    write('Luas = panjang * lebar : ');
    writeln;
    luas := panjang* lebar;
    writeln('luasnya : ',luas);
    readln;
   end;

 2: begin
   writeln('menghitung keliling');
   write('masukkan panjang : ');readln(panjang);
   write('masukkan lebar   : ');readln(lebar);
   keliling:=2*panjang+2*lebar;
   writeln('maka keliling: ',keliling);
   readln;
    end;
    else
    write('hahaha');
  end;
 
 

kemudian Run, tekan Ctrl+F9
input bilangan kedalam program...
dan hasilnya :

end.