Даны два числа a и b найти произведение всех целых чисел из промежутка от a до b

program zadacha; var      a, b: integer;       min, max: integer;       p: integer;       i: integer; begin      write('enter a, b ');       readln(a, b);             if (a < b) then       begin            min : = a;             max : = b;       end      else      begin            min : = b;             max : = a;       end;             p : = 1;       for i : = min to max do            p : = p * i;                   writeln(p);                               readln; end.

p: =0;

for i: =a to b do

  for j: =a to b do

    p: =p+i*j;

не забываем про : )

program v;

uses crt;

const n=10;

var a: array [1..n] of integer;

i,k,j: integer;

begin

randomize;

writeln('массив а: ');

for i: = 1 to n do begin

a[i]: = random(100)-10;

wite(a[i]: 5);

end;

writeln; writeln;

for i : = 1 to n-1 do begin

for j : = 1 to n-i do begin

if a[j] > a[j+1] then begin

k : = a[j];

a[j] : = a[j+1];

a[j+1] : = k

end;

end;

end;

writeln('отсортированный массив: ');

writeln;

for i : = 1 to n do

write(a[i]: 5);

readkey;

end.