как делать тесты в паскале?? очень надо!!!!а ваще кто может написать прогу??помогите!!!!срочнооооооооооооооооооооо

Uses crt;
var a,aa,b,bb,summa,c:integer;
begin
repeat
writeln('Если вы хотите пройти тест нажмите 1');
writeln;
writeln('Если вы хотите выйти нажмите 2');
writeln;
writeln('Ваш выбор: ');
readln(c)
if c=1 then goto 1;
if c=2 then exit;
until a in [1,2];
1:clrscr;textcolor(yellow);
gotoxy(13,1);writeln('Как вы думаете сколько миллионов человек живет в России? ');
gotoxy(35,4);writeln('1) 200');
gotoxy(35,6);writeln('2) 167');
gotoxy(35,8);writeln('3) 144');
gotoxy(35,10);writeln('4) 129');
gotoxy(35,13);writeln('Ваш выбор: ');
readln(a);
gotoxy(35,18);if a=3 then writeln('Bерно!!! ') else writeln('Неверно!!! ');
delay(2000);
clrscr;textcolor(cyan);
gotoxy(13,1);writeln('Как вы думаете какова площадь России? (100 км в квадрате) ');
gotoxy(35,4);writeln('1) 17000');
gotoxy(35,6);writeln('2) 14000');
gotoxy(35,8);writeln('3) 19000');
gotoxy(35,10);writeln('4) 15000');
gotoxy(35,13);writeln('Ваш выбор: ');
readln(b);
gotoxy(35,18);if a=1 then writeln('Bерно!!! ') else writeln('Неверно!!! ');
delay(2000);{Таким же образом делаются остальные вопросы}
clrscr;textcolor(red);
gotoxy(20,12);writeln('Loading progressing 5 seconds');delay(1000);
clrscr;
gotoxy(20,12);writeln('Loading progressing 4 seconds');delay(1000);
clrscr;
gotoxy(20,12);writeln('Loading progressing 3 seconds');delay(1000);
clrscr;
gotoxy(20,12);writeln('Loading progressing 2 seconds');delay(1000);
clrscr;
gotoxy(20,12);writeln('Loading progressing 1 seconds');delay(1000);
clrscr;
gotoxy(20,12);writeln('Loading progressing complete!');delay(1000);{Имитация загрузки}
clrscr;
gotoxy(20,2);if a=1 then writeln('1) Неправильно (0 баллов) ');delay(200);
gotoxy(20,2);if a=2 then writeln('1) Неправильно (0 баллов) ');delay(200);
gotoxy(20,2);if a=3 then writeln('1) Правильно (2 балла) ');delay(200);
gotoxy(20,2);if a=4 then writeln('1) Неправильно (0 баллов) ');delay(200);
gotoxy(20,2);if b=1 then writeln('2) Правильно (2 балла) ');delay(200);
gotoxy(20,2);if b=2 then writeln('2) Неправильно (0 баллов) ');delay(200);
gotoxy(20,2);if b=3 then writeln('2) Неправильно (0 баллов) ');delay(200);
gotoxy(20,2);if b=4 then writeln('2) Неправильно (0 баллов) ');delay(200);
if a=3 then aa:=2;
if b=1 then bb:=2;
summa:=aa+bb;
gotoxy(1,22);writeln('Всего баллов: ', summa);
clrscr;textcolor(yellow);
repeat
writeln('Если вы хотите пройти тест еще раз нажмите 1');
writeln;
writeln('Если вы хотите выйти нажмите 2');
writeln;
writeln('Ваш выбор: ');
readln(c)
if c=1 then goto 1;
if c=2 then exit;
until a in [1,2];
end.

школота блин

2 Сергей Козлуков
в универе оттрубил.. . работаю админом, программирование ненавижу, разве что кроме bin sh....а это просто пример, из школьной программы, потому и if

тест чего нужно сделать?

Avylor а ты самоучка или ходил куда? есль самоучка ссыльку не кинеш на учебник? кстати помоему удобнее использовать не if а case для переменной c...
======================
добавленно:
ясно Avylor