AllRepetisi

program project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
const
  phi = 3.1459;

var
  nama, alamat, hobi: string;
  jumlah, kurang, kali, bagi, luas, jari,a, b: real;
  panjang, lebar, luas2: integer;
  {program utama}

begin
  Writeln('=================');
  Writeln('* Program Multi *');
  Writeln('=================');
  Writeln;
  Writeln;
  Writeln('============================================================================================================');
  Writeln('Dengan menginput data diri Anda, Anda akan secara otomatis mendapat akses keseluruh fungsi secara berurutan.');
  Writeln('============================================================================================================');
  Writeln;
  Write('Masukkan Nama : ');
     Readln(nama);
  Write('Masukkan Alamat : ');
     Readln(alamat);
  Write('Masukkan Hobi : ');
     Readln(hobi);
  Writeln;
  Writeln('Nama Anda ',nama,', Anda Tinggal di ',alamat,', hobi Anda adalah ',hobi);
  Writeln;
  Writeln('======================================================================');
  Writeln;
  Writeln('Selamat Datang ',nama,', Anda telah terdaftar secara otomatis dalam program alat penghitung Penjumlahan, Perkalian, Pembagian, dan Pengurangan.');
  Writeln;
  Write('Masukkan Nilai A : ');
     Readln(a);
  Write('Masukkan Nilai B : ');
     Readln(b);
  Writeln;
     jumlah := a + b;
     kurang := a - b;
     kali := a * b;
     bagi := a / b;
  Writeln('Hasil Penjumlahan ',round(a),' + ',round(b),' = ', round(jumlah));
  Writeln('Hasil Pengurangan ',round(a),' - ',round(b),' = ', round(kurang));
  Writeln('Hasil Perkalian   ',round(a),' * ',round(b),' = ', round(kali));
  Writeln('Hasil Pembagian   ',round(a),' / ',round(b),' = ', bagi);
  Writeln;
  Writeln('=================================================================');
  Writeln;
  Writeln;
  Writeln('Sekarang Anda akan memcoba menghitung Luas Persegi Panjang, dan Luas Lingkaran, Anda hanya perlu memberi input angka secara bebas untuk Panjang, Lebar, dan Jari-Jari.');
  Writeln;
  Writeln('Menghitung Luas Persegi Panjang');
  Writeln;
  Write('Masukkan Nilai Panjang : ');
     Readln(panjang);
  Write('Masukkan Nilai Lebar : ');
     Readln(lebar);
  Writeln;
     luas2 := panjang * lebar;
  Writeln('Luas Persegi Panjang Anda adalah : ',luas2);
  Writeln;
  Writeln;
  Writeln('Setelah menghitung Luas Persegi Panjang, Anda akan menghitung Luas Lingkaran, Anda cukup memasukkan nilai jari-jari. Nilai Phi = 3.1459');
  Writeln;
  Writeln('Menghitung Luas Lingkaran');
  Writeln;
  Write('Masukkan Nilai Jari-jari : ');
     Readln(jari);
  Writeln('Phi = 3.1459');
  Writeln;
     luas := phi * jari * jari; {sqr(jari)}
  Writeln('Luas Lingkaran yang Anda Dapat adalah : ',luas);
  Writeln;
  Writeln('Terima Kasih ',nama,', Anda telah mencoba program sederhana ini, tetap semangat dan kembangkan hobi ',hobi,' Anda karena ',hobi,' itu sangat KEREN. Good Luck.');
  Writeln;
  Writeln('Tekan Enter untuk Keluar');
     Readln;
end.