uses crt; var i : integer; function bp(x : integer) : integer; begin bp:=x*x; end; begin write('Binh phuong cac so tu 1 den 20 la :'); for i:=1 to 20 do writeln(bp(i):3); readln end.
uses crt; var n,i:longint; begin clrscr; write('Nhap 1 so: ');readln(n); writeln('Binh phuong cua ',n,'= ',n*n); writeln('Binh phuong cac so tu 1 den 20 la:'); for i:=1 to 20 do writeln('Binh phuong cua so ',i, ': ',i*i); readln end.