... s:=# 32+ s; while length(s) < 25 do s:= s + # 32; cantrai:=s;END;FUNCTION Cangiua(s:string):string;VAR i:byte;BEGIN for i:=1 to (25 -length(s)) div 2 do s:= # 32 + s; while length(s) < 25 ... nhiên n(n < 25 6).Xây dựng tập tất cả các số chính phương < = n.uses crt;Var A:set of byte; n,i:byte;Begin clrscr; writeln('Xay dung tap cac so chinh phuong < =n (n < 25 6)'); ... and (n < =max); writeln('Nhap ho so cho SV trong lop!'); 4Function cangiua(s:string):string; begin for i:=1 to (25 -length(s)) div 2 do s:=# 32+ s; while length(s) < 25 do...