Мы разрабатываем пошаговую игру по мотивам боевика. Игрок - главный герой и должен обезвредить бомбу, которая взорвётся через N секунд. Программа спрашивает пользователя хочет ли он обезвредить бомбу сейчас. Если ответ “0” (то есть “нет”), то счетчик бомбы уменьшается. Если он достиг нуля, то программа выдаёт сообщение “Бомба взорвалась”, а если не достиг, то программа вновь переспрашивает, не хочет ли игрок обезвредить бомбу, и сообщает, сколько времени осталось до взрыва.. Если ответ “да”, то программа выводит на экран сообщение о том, что бомба обезврежена и сколько секунд оставалось до взрыва. Используйте цикл for.

Используется формула гаусса (формула "шнурования"). // pascalabc.net 3.3, сборка 1583 от 25.11.2017 // внимание! если программа не работает, обновите версию! - с функцией: function spolygongauss(a: array of real): real; // возвращает вычисленную по формуле гаусса площадь многоугольника, // координаты вершин которого заданы массивами х и у begin   var (n,i): =(a.length-4,0);   result: =0.0;   while i< =n do begin       result+=a[i]*a[i+3]-a[i+1]*a[i+2];       i+=2       end;   result: =abs(0.5*result) end; begin   var x: =readarrreal('введите координаты вершин 5-угольника: ',10);   setlength(x,12);   x[10]: =x[0];   x[11]: =x[1];   writeln('площадь равна ',spolygongauss(x)) end. пример введите координаты вершин 5-угольника: 0.6 2.1 1.8 3.6 2.2 2.3 3.6 2.4 3.1 0.5 площадь равна 3.915 - с процедурой: procedure spolygongauss(a: array of real; var s: real); // вычисляет по формуле гаусса площадь многоугольника, // координаты вершин которого заданы массивами х и у begin   var (n,i): =(a.length-4,0);   s: =0.0;   while i< =n do begin       s+=a[i]*a[i+3]-a[i+1]*a[i+2];       i+=2       end;   s: =abs(0.5*s) end; begin   var x: =readarrreal('введите координаты вершин 5-угольника: ',10);   setlength(x,12);   x[10]: =x[0];   x[11]: =x[1];   var s: real;   spolygongauss(x,s);   writeln('площадь равна ',s) end.