Правой кнопкой мыши щелкните по значку флешки (съемного диска) . Откроется контекстное меню, в нем выберите пункт «Свойства» . Откроется диалоговое окно, в нем нужно открыть вкладку «Сервис» и в ней нажать на кнопку «Выполнить проверку... » В открывшемся диалоговом окне установите флажки «Автоматически исправлять системные ошибки» и «Проверять и восстанавливать поврежденные сектора» . Потом нажмите кнопку «Запуск» и ждите окончания проверки.
begin
var a, b, c, d: integer;
a := 8;
b := 3;
c := 5;
writeln((a+b+c)/3)
end.
Объяснение: