Uses drawman;beginfield(23,5);topoint(1,4);pendown;topoint(1,2);topoint(4,2);topoint(4,4);topoint(1,4);penup;topoint(3,3);pendown;topoint(3,1);topoint(6,1);topoint(6,3);topoint(3,3);penup;topoint(5,4);pendown;topoint(5,2);topoint(8,2);topoint(8,4);topoint(5,4);penup;topoint(7,3);pendown;topoint(7,1);topoint(10,1);topoint(10,3);topoint(7,3);penup;topoint(9,4);pendown;topoint(9,2);topoint(12,2);topoint(12,4);topoint(9,4);penup;topoint(11,3);pendown;topoint(11,1);topoint(14,1);topoint(14,3);topoint(11,3);penup;topoint(13,4);pendown;topoint(13,2);topoint(16,2);topoint(16,4);topoint(13,4);penup;topoint(15,3);pendown;topoint(15,1);topoint(18,1);topoint(18,3);topoint(15,3);penup;topoint(17,4);pendown;topoint(17,2);topoint(20,2);topoint(20,4);topoint(17,4);penup;topoint(19,3);pendown;topoint(19,1);topoint(22,1);topoint(22,3);topoint(19,3);penup;end.
Var
i, n, k, a: integer;
begin
readln(n);
k:=0;
for i:=1 to n do
begin
readln(a);
if (a mod 2 = 0) and (i mod 2 = 0) then
inc(k);
end;
writeln(k);
<span>end.</span>
Var
x, y: real;
begin
readln(x, y);
if (x * x + y * y <= 36) and (x >= 2) then
writeln('True')
else
writeln('False');
end.
<h2>Ошибка</h2>
Знак "больше или равно" пишется в том же порядке, что и читается
Сначала знак больше потом равно
" >= "
<h2>Исправление ошибки</h2>
Заменить 16 строку " if(D=>0) then "
На " if(D>=0) then "
