{ SPORIC.PAS Copyright (c) Miroslav Lízal, Tomáš Okurek } { Sporic obrazovky. } { } { Datum:05.12.2002 http://www.trsek.com } program sporic; uses crt; var neco,n:integer; var a,b:char; begin clrscr; n:=1; a:=' '; b:=' '; while not(keypressed) do begin clrscr; for neco := 1 to n do begin write(' '); end; writeln(' ()"()'); for neco := 1 to n do begin write(' '); end; writeln(' ("(řoř)'); for neco := 1 to n do begin write(' '); end; writeln(' ,-(___)|''--.'); for neco := 1 to n do begin write(' '); end; writeln('"=(O)===(O)='''); n:=n+1; delay(1000); end; end.