Localize file www.TrSek.com/zadania/sucet2.pas
{ SUCET.PAS                                      Copyright (c) Pheo }
{ Program spoèíta párne èísla vo zvolenom intervale.                }
{                                                                   }
{ Datum:15.04.2003                             http://www.trsek.com }

program sucet;
var a,b,i,s:integer;
begin
  write('zadaj dolnu hranicu intervalu: ');
  readln(a);
  write('zadaj hornu hranicu intervalu: ');
  readln(b);
  s:=0;
  for i:=a to b do
      if i mod 2 = 0 then s:=s+i;
  writeln('SUCET parnych CISEL TOHTO INTERVALU JE: ',s);
  readln;
end.
Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com