Абсолютная ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
Извини, но моя твоя, непонимай
нужно вынуть зернышко из мешка с надписью "смесь"..мы уже знаем,что мачеха поменяла ВСЕ таблички..это означает,что ни одна табличка не соответствует действительности)
предположим,что из мешка с надписью смесь мы достаем зерно проса..значит в мешке с надписью "просо" лежит уже не просо,а мак..а в мешке с надписью "мак"лежит смесь..
Ответ:
var
a:integer;
b,c:string;
begin
writeln('--------------------------');
writeln('---Программа знакомства---');
writeln('--------------------------');
writeln('Я персональный ЭВМ,');
writeln('А как зовут тебя?');
readln(b);
writeln('Сколько тебе лет?');
readln(a);
writeln('В каком классе ты учишься?');
readln(c);// цифра и буква
writeln('Рада познакомиться с тобой, '+b);
writeln('Молодец, в '+a+' лет написал такую программу!');
writeln('В твоём '+c+' классе все такие?');
end.