Latihan 8: Program Bilangan

uses wincrt;
var
 pertama,kedua,ketiga:integer;
begin
write('Masukkan Bilangan Pertama : ');read(pertama);
write('Masukkan Bilangan Kedua : ');read(kedua);
write('Masukkan Bilangan Ketiga :');read(ketiga);
if (pertama>kedua) and (pertama>ketiga) then
 begin
 writeln('Bilangan yang Terbesar adalah :',pertama);
 end
else if (kedua>pertama) and (kedua>ketiga) then
 begin
 writeln('Bilangan yang Terbesar adalah :',kedua);
 end
else if (ketiga>pertama) and (ketiga>kedua) then
 begin
 writeln;
 writeln('Bilangan yang Terbesar adalah :',ketiga);
 end;
end.