Miscellany

program suma_sandauga;
var m, n, i : integer;
    sum : longint;
    san : longint;
begin
 WriteLn('Iveskite skaicius m ir n');
 read(m, n);
 sum := 0;
 san := 1;
 if (n < m)
          then writeln('Skaicius n turi buti didesnis uz m')
          else
    for i := m to n do
    sum := sum + i;
    san := san * i;
    writeln('suma = ', sum ,' ','sandauga = ', san)


end.