Deret Kuadrat dengan While do

Sedikit Tentang Program Untuk Menghitung Deret Kudrat di Pascal Dengan Menggunakan While do !!

program Deret_Kuadrat;
uses crt;

var
max, i, a : integer;

begin
clscr;
  write('Masukkan Batas Maksimal : ');
  readln(max);
  i:=0;
  while i < max do
  begin
    i:= i + 1;
    a := i * i;
    write(i);
    writeln(a:4);
  end;
  readln;
end.

Kurang Lebih Hasil Outputnya Seperti ini !!

 

Selamat Mencoba !!
:D