умоляю, напишите мне шаблон, как написать тест в pascal!

даже как вы называете шаблон, а на самом деле. основная часть программы требует довольно приличного время вложения. И вы хотите, что бы за так кто то потратил свое время на это?

program Test1;
uses crt;
label 10,11,12;
var a,b,c,t,PR,NE:byte;
begin
PR:=0;
NE:=0;
11:writeln('Выберете предмет: ');
writeln('1-Математика, 2-Музыка');
readln(a);
clrscr;
case a of
1:begin
b:=0;
10:inc(b);
case b of
1:begin
writeln('Частное 63 и 3');
writeln;
writeln('1-15 3-189');
writeln('2-66 4-21');
readln(c);
t:=4;
end;
2:begin
writeln('Чему равно число пи');
writeln;
writeln('1-3.14....3-1.15763');
writeln('2-4 4-Пи -это не число. Пи-это мышка говорит');
readln(c);
t:=1;
end;
3:begin
writeln('Корень из 225');
writeln;
writeln('1-23 3-15');
writeln('2-24 4-0');
readln(c);
t:=3;
end;
4:begin
writeln('Катет противолежащий углу в 30*=');
writeln;
writeln('1-Половине катета 3-Полторы гипотинузы');
writeln('2-n*34 4-Половине гипотенузы');
readln(c);
t:=4;
end;
5:begin
writeln('Выберете дробное число');
writeln;
writeln('1-23.5 3-Ой, я нинаю');
writeln('2-2a 4-100/5');
readln(c);
t:=1;
end;
end;
if c=t then inc(pr)
else
inc(ne);
clrscr;
if b<5 then goto 10;
end;
2:begin
b:=0;
12:inc(b);
case b of
1:begin
writeln('Какая нота находяится на 3 стане бассового ключа');
writeln;
writeln('1-ми 3-ре');
writeln('2-соль 4-до');
readln(c);
t:=3;
end;
2:begin
writeln('Лунная соната- это произведение');
writeln;
writeln('1-Бетховена 3-Медведева');
writeln('2-Моцарта 4-Баха');
readln(c);
t:=1;
end;
3:begin
writeln('Дубль диез-');
writeln;
writeln('1-Понижение на тон 3-Пометить место ноты');
writeln('2-Повышение на тон 4-Знак в матиматике');
readln(c);
t:=2;
end;
4:begin
writeln('В гармонической гамме повышается');
writeln;
writeln('1-Тоника 3-1 ступень');
writeln('2-7-я ступень 4-Лад');
readln(c);
t:=2;
end;
5:begin
writeln('Доминантовый септаккорд разрешается в');
writeln;
writeln('1-Уменьшенную квинту 3-Увеличиную септу');
writeln('2-Домминантовый квинтсептаккорд 4-Тонику');
readln(c);
t:=4;
end;
end;
if c=t then inc(pr)
else
inc(ne);
clrscr;
if b<5 then goto 12;
end;
else
begin
writeln('Ошибка ввода. Попробуйте еще раз');
readln;
clrscr;
goto 11;
end
end;
clrscr;
writeln('Вы ответили правильно на ',PR, ' и на ',NE,' не правильно ');
writeln('Или-же на ',100/(PR+NE)*PR,'%');
write('И получили оценку: ');
case 20*pr of
0..50:write('2');
51..79:write('3');
80..94:write('4');
95..100:write('5');
end;
writeln;
end.

var err, right, answer : integer;
BEGIN
err := 0; right := 0;
writeLn('Сейчас Вам будет предложен тест по архитектуре. ');
writeLn('К каждому вопросу три варианта ответа. ');
writeLn('Вы должны ввести номер правильного ответа и нажать <Еnter>');
writeLn;
writeLn('Архитектор Исаакиевского собора: ');
writeLn('1. Доменико Трезини');
writeLn('2. Огюст Монферран');
writeLn('3. Карл Росси');
Write('Ваш ответ: ');ReadLn(answer);
if answer = 2 then begin
WriteLn('Правильно');
right := right +1;
end
else begin
WriteLn('Неправильно');
err := err + 1;
end;
writeLn;
writeLn('Архитектор Зимнего дворца: ');
writeLn('1. Франческо Бартоломео');
writeLn('2. Карл Росси');
writeLn('3. Огюст Монферран');
Write('Ваш ответ: ');ReadLn(answer);
if answer = 2 then begin
WriteLn('Правильно');
right := right +1;
end
else begin
WriteLn('Неправильно');
err := err + 1;
end;
writeLn;
writeLn('Невский проспект получил свое название: ');
writeLn('1. По имени реки, на которой стоит Санк-Петербург');
writeLn('2. По имени близко расположенной Александро-Невской лавры');
writeLn('3. В память о знаменитом полководце - Александре Невском');
Write('Ваш ответ: ');ReadLn(answer);
if answer = 2 then begin
WriteLn('Правильно');
right := right +1;
end
else begin
WriteLn('Неправильно');
err := err + 1;
end;
WriteLn('Правильных ответов: ', right);
WriteLn('Неправильных ответов: ', err);
END.