program deret_kuadrat

program deret_kuadrat;
uses wincrt;
var n,a,b,c:integer;
jawab:char;
begin
clrscr;
Writeln('Program Membuat Deret Kuadrat');
writeln;
writeln('****************************************');writeln('* Nama : hadi khusnan');gotoxy(40,4);writeln('*');
writeln('* Nim : 110910117');gotoxy(40,5);writeln('*');
writeln('* Kelas : IIB');gotoxy(40,6);writeln('*');
writeln('* Kelompok : C');gotoxy(40,7);writeln('*');
writeln('****************************************');
writeln;
writeln;
repeat
write ('masukkan angka= '); readln (n);
for a:=1 to n do
begin
b:=sqr (a) ;
write (b,',');
end;
writeln;
write('Hitung Lagi? (Y/T): ');
readln(jawab);
jawab:= upcase (jawab);
until not (jawab in ['Y', 'y']);
end.