Menentukan bilangan terbesar dengan pascal

Kali ini saya akan membagikan cara untuk Menentukan bilangan terbesar dengan pascal dengan menggunakan bahasa pemrograman pascal. Pada program ini menggunakan percabangan. semoga bisa menambah wawasan bagi para pembaca semuanya.

berikut source code nya :

program bilangangterbesar;
uses crt;
var
 bilangan1,bilangan2,bilangan3:integer;
 begin
clrscr;
writeln('masukan bilangan pertama ');
readln(bilangan1);
writeln('masukan bilangan kedua');
readln(bilangan2);
writeln('masukan bilangan ketiga');
readln(bilangan3);
if (bilangan1>bilangan2) and (bilangan1>bilangan3) then
write('bilangan pertama yang terbesar')
else
if (bilangan2>bilangan1) and (bilangan2>bilangan3) then
writeln('bilangan kedua yang terbesar')
else
if (bilangan3>bilangan2) and (bilangan3>bilangan2) then
writeln('bilangan ketiga yang terbesar');
end.

berikut screenshootnya :