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

clrscr;

Write('количество ответов на ',i,'-й вопрос ');

Readln(e); {ввод количества ответов}

Window(10,10,53,20); {окно ответов}

TextBackGround(lightgray);

clrscr;

For j:=1 to e do Begin

Write(' ',j,')');

Readln(a); {ввод ответов}

Str(j,f);

a:=' '+f+')'+a;

Write(c,a);

End;

Write(c,'&'); {запись в файл конца ввода}

Window(55,10,80,15);

TextBackGround(cyan); {окно правильного ответа}

clrscr;

Write('Правильный ответ: ');

Readln(b); {ввод правильного ответа}

Writeln(u,b);

End;

close(u); {закрытие файлов и окон}

Reset(u);

Readln(u);

close(c);

Window(55,10,80,15);

TextBackGround(black);

clrscr;

End;