Вопрос от посетителя:
Составить программу случайного выбора трех дисциплин, по которым придется сдавать экзаме-ны, из предлагаемых на выбор четырех (всего возможно 4 варианта выбора).
Илюха отвечает:
var
d1,d2,d3,d4:string;
begin
randomize;
readln(d1);
readln(d2);
readln(d3);
readln(d4);
case random(4) of
0: writeln(d1,d2,d3);
1: writeln(d1,d2,d4);
2: writeln(d2,d3,d4);
3: writeln(d1,d3,d4);
end;
end.