Найдите все ошибки в программе и исправьте их, выделив другим цветом

Ошибки "синий экран" (также называемые ошибками черного экрана или ошибками кода остановки) могут возникать, если из-за серьезной проблемы Windows выключается или неожиданно перезапускится. При этом может появиться сообщение "Windows завершила работу, чтобы предотвратить повреждение компьютера".

Эти ошибки могут быть вызваны как аппаратными, так и с программными ошибками. Если перед возникновением ошибки "синий экран" вы добавили новое оборудование, то завершите работу компьютера, удалите это оборудование и перезапустите компьютер. Если во время перезапуска возникают проблемы, попробуйте запустить компьютер в безопасном режиме. Подробнее см. в статье Параметры запуска Windows (в том числе безопасный режим).

Кроме того, можно попробовать получить последние обновления из Центра обновления Windows, справку из других источников или восстановить Windows до более раннего состояния.

Var   a: array[1..4] of integer;   i,j,r,p: integer; function hod(c,b: integer): integer;   begin   while c< > b do     if c> b       then         c: =c-b     else       b: =b-c;   hod: =c;   end; function hok(c,b, rr: integer): integer;   begin   if ((c mod b=0) or (b mod c=0)) and ((c div b > 1) or (b div c > 1))     then       begin         if c> b             then             hok: =c           else           hok: =b;       end     else       hok: =(c*b)  div  rr;   end; begin   a[1]: =36;   a[2]: =54;   a[3]: =18;   a[4]: =15;   p: =1;   r: =hod(a[1],a[2]);   p: =hok(a[1], a[2], r);   for i: =3 to 4 do   begin     r: =hod(r, a[i]);     p: =hok(p, a[i],r);   end;   writeln('hok = ',p); end.