PROGRAM NOME

Program exe4_121;
uses wincrt;
var nom: string;
a: longint;
b: real;
col,i:integer;
Begin
write('Donner votre nom et votre prénom : ');readln(nom);
for i:=1 to 10 do
begin
for col:=80-length(nom) downto 1 do
begin
clrscr;
gotoxy (col, 12);
write (nom);
for a:=1 to 100000 do b:=cos(b+pi); {delay}
end;
for col:=1 to 81-length(nom) do
begin
clrscr;
gotoxy(col, 12);
write(nom);
for a:=1 to 100000 do b:=cos(b+pi);
end;
end;
End.