Найти сумму кубов всех целых чисел из диапозона: от а до в, где а меньше либо равно в

program xxx;

  var a, b, s, i : integer;

begin

  write('введите а-');

  readln (a);

  write('введите b-');

  readln (b);

  s: =0;   for i: = a to b do        s: =s + i * sqr(i);

    writeln ('сумма кубов =', s)

end.

Не совсем красиво но без массивов var cur_num, prev_num: integer; begin       writeln('введите последовательность закончив ее нулем');       read(prev_num);       repeat               read(cur_num);               if cur_num * prev_num > 0 then                       writeln('пара = ', cur_num * prev_num);               prev_num : = cur_num;       until cur_num = 0; end.

Var month: integer; begin readln(month); if ((month > 0 ) and ( month < 13)) then case month of 1 : writeln ('january (31 days) '); 2 : writeln ('fabruary (28 days) '); 3 : writeln ('march (31 days)'); 4 : writeln ('april (31 days) '); 5 : writeln ('fabruary (28 days)'); 6 : writeln ('march (31 days)'); 7 : writeln ('january (31 days) '); 8 : writeln ('fabruary (28 days) '); 9 : writeln ('march (31 days)'); 10 : writeln ('january (31 days) '); 11 : writeln ('fabruary (28 days) '); 12: writeln ('march (31 days)'); end else writeln('error'); readln; end.