Кто может составить программу на Turbo Pascal

Нужно сотвтить программу на Turbo Pascal. Тестовая программа по материнским платам. 20 вопросов. Из 20 случайных вопросов выбрать 10. Если 100% верно оценка 5, если 75% верно оценка 4, если 50% верно оценка 3, если меньше 50% то оценка 2. Если кто сможет составит свяжитесь со мной Dmitry_Korolev@net-burg.com, ICQ 303489727, пейджер 063 аб 402737. Зарание благодарен

именно на паскале надо?

Именно по матьбордам?

данных маловато ...

либо есть готовые варианты ответа как в "стань милионером":
тогда один вариант

если как в "кресле":
другой вариант совсем ... просто супер ИИ должен быть у программы.

думаю все же что первый

тогда начало можно взять такое:

pravilniy_otvetov_kolvo:=0;

a[0]:='вопрос 1'; // вопросы
a[1]:='вопрос 1';
..
..

b[0,0]:='гладиолус'; // варианты ответов на первый вопрос
b[0,1]:='потому-что гладиолус';
...

c[0]=2; // номер правильного ответа на нулевой вопрос

i:=10;
while i<0 do
begin
repeat
r:=random(20);
until a[r]<>'';
g:=printwopros(r);
if g=c[r] then inc(pravilniy_otvetov_kolvo);
end;

case pravilniy_otvetov_kolvo of
10: ocenka:=5;
7,5 .. 9: ocenka:=4;
...
end;

print_ocenka(ocenka);

только осталось определиться что значит 75% от 10 вопросов :-)

забыл в цикле while nado вставить dec(i);

Забыл, что наборы case оперируют только со счетными типами...
"7,5 .. 9: ocenka:=4;"(С) - учите матчасть :-)

да это шутка насчет 75% :-)

Не со счётными, а с перечисляемыми (индексируемыми), которые могут быть детерминированно описаны в блоке типов до начала тела программы, т. е. со всеми типами, кроме списков.

Воистину, ordinal переводится как перечисляемый :-)