Viết tên các CTC; viết các tham số hình thức

----- Nội dung dịch tự động từ ảnh -----
. 2.1.3.1:4.1.5.16.1.7.1. 8 1.9.1 10. 1 11. 1 12. 113. 1 14. 1 15.1 ·16. 1.
18.
var sl, s2: str79;
stop: boolean;
procedure CatDan(sl: str79; var s2: str79);
begin
s2:= copy (sl, 2,length(sl)-1)+sl[1];
end;
procedure CanGiua (var s: str79);
var i, n: integer;
begin
n:= length(s);
n:= (80-n) div 2;
for i: 1 to n do s:=
'+s;
end;
begin
clrscr;
write('Nhap xau sl: '); readln(sl);
CanGiua (s1);
clrscr;
stop:= false;
while not (stop) do
begin
gotoxy (1, 12): ( Chuyen con tro den dau dong 12+)
write(sl);
delay (500); (* Dung 500 miligiay *)
Cat Dan (sl, s2);
sl:=s2;
stop:=keypressed; (* Nhan mot phim bat ki de ket thuc*)
end;
readln
end.
- Viết tên các CTC; viết các tham số hình thức; các tham
số thực sự; lời gọi CTC; biến toàn cục; biến cục bộ.