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

Readln(f);

Writeln(y,f);

Window(55,10,80,15); {окно ответов}

TextBackGround(cyan);

clrscr;

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

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(y,a);

End;

Writeln(y,'&');

Window(55,10,80,15); {окно ответов}

TextBackGround(cyan);

clrscr;

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

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

Window(55,10,80,15); {закрытие окна ответов}

TextBackGround(black);

clrscr;

Writeln(a1,b);

repeat

while not EOLN(c) do Begin {дозапись значений}