1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50
| Program cligno;
uses Crt,dos,
procedure clin(M:string);
var
M1:string;
long,i:integer;
begin
long:=length(M);
for i := 1 to (long) do
begin
M1[i] := ' ';
M1 :=M1+M1[i];
end;
textcolor(yellow);
textbackground(9);
clrscr;
repeat
gotoxy (30,15);
write(M);
delay(500);
gotoxy (30,15);
write(M1);
delay(500);
until keypressed;
end;
var long:integer;
M:string;
begin
clrscr;
writeln('TAPEZ VOTRE MOT');
readln(M);
clin (M);
end. |