Question

Нужно создать программу Паскаль авс, где перед нами предстает выбор тестов.например: тест по русс.язтест по математикетест по литературетест по историитест по обществознаниюможете просто пару вопросов к каждому тесту там написать в каждом. я сама все напишу. мне нужно узнать как сделать этот выбор между тестами.ЗАРАНЕЕ ВСЕХ БЛАГОДАРЮ.

Answer 1

Program test;
var q,a,wa,name:string;
test:integer;
begin
writeln('1)Rus.l. 2)Math 3)Hist');
readln(test);
if test=1 then 
begin
Сюда вопросы для первого
end else
if test=2 then 
begin
сюда вопросы для 2
end else
if test=3 then
begin
Сюда вопросы для 3
end;
end.