kata-kata motivasi buat gw

"Ketika dia memilih tuk tinggalkanmu, jangan memohonnya bertahan. Dia bukan untukmu! Percayalah, Tuhan telah siapkan yg lebih baik!"

"Ketika seseorang kehilangan sesuatu yg dia pikir seharusnya dia perjuangkan, dia akan menghabiskan waktunya menunggu kesempatan kedua"

"Jika engkau menginginkan pelangi, engkau harus menerima hujan"

"Mungkin apa yg kamu sayangi/cintai tersimpan keburukan didalamnya dan kemungkinan apa yg kamu benci tersimpan kebaikan didalamnya"

"Jangan tangisi dia yg telah pergi, meski dia sangat berarti. Tuhan pasti punya rencana yg lebih baik di kemudian hari"

"Sesuatu yg sulit ketika sadar belum bisa merelakan tapi keadaan tidak memungkinkan kita disatukan"

"Setiap orang yg kamu temui tahu setidaknya satu hal yg tak kamu ketahui. Jangan biarkan mereka pergi tanpa kamu mempelajarinya"

"Jika seseorang tak berarti apa-apa bagimu, mereka tak akan bisa menyakitimu. Jika kamu merasa sakit, mereka punya arti bagimu"

"Salah satu hal tersulit dalam hidup ini adalah ketika dia yg kamu cinta menyakitimu, namun dia tak menyadari airmatamu"

"Hanya karena sesuatu yg baik berakhir, tak berarti kamu harus bersedih. Kadang ia berakhir karena sesuatu yg lebih baik akan hadir"

"Melupakan: kamu tlah menerima kenyataan bahwa dia bkn bagian hidupmu lg. #MoveOn: kamu tak lupa, kamu hanya belajar hidup tanpa dirinya"

"Kadang lebih baik menjauhi seseorang, bukan karena berhenti mencintainya, namun karena harus melindungi diri dari rasa sakit"

procedure & function

program tugas_kelompok_ke3;

uses crt;

procedure maksimum_minimum(a:integer;b:integer;c:integer;max:integer;min:integer);

begin

     if a>b then max:=a else max:=b;

           if c>max then max:=c;

              writeln('Nilai Maksimum Matematika:',max);

     if a<b then min:=a else min:=b;

           if c<min then min:=c;

              writeln('Nilai Minimum Matematika:',min);

     end;

function rata_rata(a:integer;b:integer;c:integer):real;

begin

     rata_rata:=(a+b+c)/3;

     end;

var

   a,b,c,max,min:integer;

   rata:real;

begin

     clrscr;

     writeln('Masukkan nilai matematika siswa ke-1:');

     readln(a);

     writeln('Masukkan nilai matematika siswa ke-2:');

     readln(b);

     writeln('Masukkan nilai matematika siswa ke-3:');

     readln(c);

     maksimum_minimum(a,b,c,max,min);

     rata:=rata_rata(a,b,c);

     writeln('Nilai Rata-rata Matematika:',rata);

     readln;

end.