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