Thủ tục Căn giữa.

PROGRAM CT86;
USES crt;
TYPE Str79 = STRING[79];
VAR TB: str79;
PROCEDURE CanGiua(VAR s: str79);
VAR i,n: BYTE;
BEGIN
n:=length(s);
n:=(80-n) DIV 2;
FOR i:=1 TO n DO
s:=' '+s;
END;
BEGIN
TB:='Anh Yeu Em';
Cangiua(TB);
Write(TB);
Readln
END.

Download: http://www.mediafire.com/?l9c9lrf294a99w5