Реферат: Тест программных программ

z2:=60;

End;

If (z1=0)and(z2=0) Then GoTo l1;

Writeln(z1,':',z2);

GetTime(g1,g2,g3,g4); {вывод текущего времени}

Write(g1,':',g2,' ',g3);

Delay(1000);

TextColor(black);

Window(10,10,53,15); {вывод вопроса, ожидание ввода ответа}

TextBackGround(cyan);

clrscr;

while not Eoln(c)or(b<>'&') do Begin

Read(c,b);

If b<>'&' Then Write(b);

End;

Writeln;

Window(55,10,80,15); {вывод сообщения о вводе ответа}

TextBackGround(blue);

clrscr;

Write('ваш ответ ');

TextColor(yellow);

repeat{таймер}

Window(60,20,70,21);

TextBackGround(black);

clrscr;

z2:=z2-1;

If z2<0 Then Begin

z1:=z1-1;

z2:=60;