Ответы и объяснения

2014-03-14T14:14:14+00:00
Uses crt;
var i:byte;
begin
clrscr;
for i:=20 downto -10 do
begin 
gotoXY(39,13); 
write(i:2);  gotoXY(80,25); 
delay(1000); 
end;
gotoXY(35,13);
write('Отсчет закончен');
readlnend.