Latihan Pascal "Menentukan bilangan terbesar dari 3 buah bilangan"

program uji_coba;
{tuliskan algoritma utuk membaca 3 buah bilangan bulat lalu menentukan bilangan itu yang terbesar}
uses wincrt;
var a,b,c:integer;
begin
writeln;
writeln('       menentukan Bilangan Terbesar');
writeln;
write('masukkan bilangan bulat a        :');readln(a);
write('masukkan bilangan bulat b        :');readln(b);
write('masukkan bilangan bulat c        :');readln(c);


if (a>c) and (a>b) then
writeln('bilangan bulat a lebih besar dari bilangan b dan c');
if (b>c) and (b>a) then
writeln('bilangan bulat b lebih besar dari bilangan c dan a');
if (c>b) and (c>a) then
writeln('bilangan bulat c lebih besar dari bilangan a dan b');
end.