Program Pascal Menggunakan IF

Uses wincrt;
var
pilih:integer; ulang:char;
begin
repeat clrscr;
write('Silahkan pilih Angka favorit anda (1-15) :');readln(pilih);
if pilih=1
then
begin
writeln('jujur dan gemar bersodakoh');
end;
if pilih=2
then
begin
writeln('berjiwa sosial tinggi');
end;
if pilih=3
then
begin
writeln('pelit..kalo bahasa sundanya buntut kasirann');
end;
if pilih=4
then
begin
writeln('suka menabung');
end;
if pilih=5
then
begin
writeln('maaf anda kurang beruntung mohon coba lagi');
end;
if pilih=6
then
begin
writeln('rendah hati');
end;
if pilih=7
then
begin
writeln('pekerja keras');
end;
if pilih=8
then
begin
writeln('pemarahh');
end;
if pilih=9
then
begin
writeln('jarang mandi…pasti bau yah');
end;
if pilih=10
then
begin
writeln('sering beruntung');
end;
if pilih=11
then
begin
writeln('ramah pada semua orang');
end;
if pilih=12
then
begin
writeln('jujur dan adil');
end;
if pilih=13
then
begin
writeln('gigi kuning karena jarang gosok gigi');
end;
if pilih=14
then
begin
writeln('sering main');
end;
if pilih=15
then
begin
writeln('suka melawan orang tua');
end;
write('Ulangi Lagi [Y/T] ??? : '); read(ulang);
until upcase(ulang)<> 'Y';
donewincrt;
end.