Ответы и объяснения

2014-01-09T22:37:05+04:00
Var 
a:word;
i:byte;
begin
a:=0;
i:=11;
while(i<=19)do begin a:=a+i; i:=i+2; end;
writeln(a);
end.
2014-01-10T01:31:54+04:00
VAR
   i, sum: Byte;
BEGIN
   i := 11;
   While (i <= 19) do begin
      sum := sum + i;
      i := i + 2; End;
   Write(sum);
END.