12кб =12 288 байт = 98 304 бит
Такие дела
найти пару носков
взять один носок, взять второй носок
если носки составляют пару, то ура
если не пара, то опять берем носки
найти пару взаимно простых чисел
взять одно число
взять второе число
Если они взаимно простые , то ура
иначе опять ищем числа
Var a:integer;
begin
writeln ('В каком году был основан город минск?');
writeln ('в 1067г, в 993г, в 1147г');
readln (a);
if (a=1067) then writeln ('Правильно')
else writeln ('Не верно');
end.
Смог ли я вам чем-нибудь помочь?