var
k: integer;
begin
readln(k);
if k< 0 then
writeln('не может такого быть')
else
begin
write('мы нашли в лесу ',k,' гриб');
if (k mod 100 in [5..19]) then
writeln('ов')
else if (k mod 10 in [2..4]) then
writeln('а')
else if (k mod 10=1) then
writeln
else
writeln('ов');
end;
end.
Не на том сайте ты решил об этом попросить, но раз уж спросил то я постараюсь внятно ответить.
Тебе нужно вставить загрузочную флешку с любимым из windows, но лучше всего windows 7, загрузиться с неё, и дождаться когда появится кнопка "Установить". В самом низу у тебя будет "восстановления системы". Нажимаешь на неё, у тебя появиться окошко с двумя галочками. Выбиваешь первый и нажимаешь Далее, после чего выбираешь Командная строка, где вводишь такие команды
bootrec /fixmbr
bootrec /fixboot
И после этого перезагружаешь компьютер и всё должно работать. Если будут какие то вопросы можешь написать мне в лс, постараюсь
Программа Исполнитель_Чертежник
Сместиться_В(1,1)
Опустить_Перо
Сместиться_В(2,0)
Поднять_Перо
Сместиться_В(3,3)
Конец_Программы