DERET ANGKA

uses crt;
var
a,i,n:integer;
pil:char;
begin
clrscr;
write('Program ini adalah program penghitungan deret angka setiap suku angka.');
write('langkah kerja program ini yaitu tinggal memasukkan angka dan kemudian tekan enter untuk');
write('mengetahui hasil dan menuju tahap selanjutnya'); readln;
write('Msukkan suku ke:'); readln(n);
a:=3;
for i:=1 to n do
begin
write(a);
write('');
a:=a+4;
end;
readln;
write('Hitung lagi[Y/T]?'); readln(pil);
case(pil)of
'Y':begin
write('Msukkan suku ke:'); readln(n);
a:=3;
for i:=1 to n do
begin
write(a);
write('');
a:=a+4;
end;
readln;
end;
end;
write('Hitung lagi[Y/T]?'); readln(pil);
case(pil)of
'Y':begin
write('Msukkan suku ke:'); readln(n);
a:=3;
for i:=1 to n do
begin
write(a);
write('');
a:=a+4;
end;
readln;
end;
end;
write('Hitung lagi[Y/T]?'); readln(pil);
case(pil)of
'Y':begin
write('Msukkan suku ke:'); readln(n);
a:=3;
for i:=1 to n do
begin
write(a);
write('');
a:=a+4;
end;
readln;
end;
end;
write('Hitung lagi[Y/T]?'); readln(pil);
case(pil)of
'Y':begin
write('Msukkan suku ke:'); readln(n);
a:=3;
for i:=1 to n do
begin
write(a);
write('');
a:=a+4;
end;
readln;
end;
'T':begin
write('Thanks'); readln;
end;
end;
readln;
end.

http://Layla-innocent.blogspot.com