Turbo Pascal Bilangan Paling Besar

Setelah selesai belajar Turbo Pascal (for Windows) di sekolah, saya diskusi dengan teman SMP saya. Dia memberikan beberapa baris kode yang setelah saya coba hasilnya gagal. Setelah itu saya revisi sedikit-demi-sedikit dan juga saya permak. Ini dia.

Baris Kode dan hasil Run pada Turbo Pascal 7 for DOS (using DOSBOX)

Baris kodenya:

program BilanganPalingBesar;
uses crt;
var a,b,c:integer;
begin
clrscr;
write('masukkan a: ');readln(a);
write('masukkan b: ');readln(b);
write('masukkan c: ');readln(c);
if (a>b) and (a>c) then
begin
writeln(a,' (bilangan a) merupakan bilangan terbesar');readln;
end
else
if (b>a) and (b>c) then
begin
writeln(b,' (bilangan b) merupakan bilangan terbesar');readln;
end
else
if (c>a) and (c>b) then
begin
writeln(c,' (bilangan c) merupakan bilangan terbesar');readln;

Many thanks to my friend, Ahmad Rizqita Raharja for the inspiration and some codes 🙂