Tugas Pascal Ramalan

Uses wincrt;
var
pilih:integer;
begin
write('Angka favorit anda (1-10): ');readln(pilih);
if pilih=1
then
begin
writeln('jujur');
end;
if pilih=2
then
begin
writeln('berjiwa sosial tinggi');
end;
if pilih=3
then
begin
writeln('berwawasan luas');
end;
if pilih=4
then
begin
writeln('suka menabung');
end;
if pilih=5
then
begin
writeln('periang, pandai bergaul');
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('murah senyum');
end;
if pilih=9
then
begin
writeln('berbakat dalam bidang olahraga');
end;
if pilih=10
then
begin
writeln('sering beruntung');
end;
end.