Cod sursa(job #20956)

Utilizator Florin90tlNica Florin Florin90tl Data 22 februarie 2007 17:47:45
Problema Jocul Flip Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
program scr1;
uses crt;
var   s:string;
     i:integer;
begin
write('dati sirul');
readln(s);
for i:=1 to 80 do
  s:=' '+s+' ' ;
  clrscr;
repeat
 for i:=1 to length(s)-79 do
      begin
      gotoxy(1,20);
      textcolor(red);
      write(copy(s,i,80));
      delay(50);
      end
 until keyPressed;
end.