Contoh Program Pascal | IF ( Bersarang)

uses wincrt;
var agit, hendra, asep: integer;
X:char;
begin
repeat
write('masukan tinggi agit      :');readln(agit);
write('masukan tinggi hendra    :');readln(hendra);
if (agit>hendra) then
begin
if(hendra< agit) then
begin
write('agit lebih tinggi dari hendra ')
end
else if(hendra = agit) then
begin
write ('tinggi hendra sama dengan agit')
end
end
else
begin
write('hendra lebih tinggi  dari agit');
readln  ;
clrscr;
end      ;
write('Apakah Anda Ingin Mengulang Lagi [Y/T]: ');readln(x);
until upcase (x)<>'Y';

end.