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

Readln(c,b);

z:=ord(b)-ord('0'); {установка времени}

z1:=z;

Window(10,10,40,12); {окно пароля}

TextBackGround(magenta);

clrscr;

Readln(u,a);

If length(a)>2 Then Begin{проверка наличия в файле пароля}

Write('введите пароль ');

Readln(f); {ввод пароля}

If a<>f Then Begin

Write('пароль неверный');

GoTo l1; {выход из процедуры}

End;

End

else Begin

close(u);

Reset(u);

End;

Readln(c,f);

Writeln('тест по теме "',f,'"'); {вывод темы теста}

z2:=60;

repeat

Window(60,20,70,21); {закрытие окна пароля}

TextBackGround(black);

clrscr;

TextColor(yellow);

z2:=z2-1; {включение таймера}

If z2<0 Then Begin