PROGRAM EXEL

Program Exe1_121;
uses wincrt;
var nom:string;
col:byte;
begin
write('donner votre nom et votre prénom :');
readln(nom);
for col:=80-length(nom) downto 1 do
begin
clrscr;
gotoxy (30,11);
writeln ('taper une touche pour défiler...');
gotoxy (col, 12);
write (nom);
readkey;
end;
end.