Не меньше 12 ведь чем меньше тем легче его отгадать)
Var i:integer;
begin
for i:=-17 to 3 do
if (i mod 4=0) then writeln(i:4);
<span>end.
<u><em>ПРоВерКА
</em></u><em> -16
-12
-8
-4
0</em><u><em><span>
</span></em></u></span>
А) var a,b,c:real;
begin
readln(a);
readln(b);
readln(c);
if (a>b) and (a>c) then writeln('Победил 1! Результат: ',a);
if (b>a) and (b>c) then writeln('Победил 2! Результат: ',b);
if (c>b) and (c>b) then writeln('Победил 3! Результат: ',c);
end.