Ну, большой разницы между чистым паскалем и дельфи нет с точки зрения таких простых заданий.
Все примеры расчитаны на консоль:
Первое:
Код:
var
n, a, i, p : Integer;
begin
write('Введите a = '); readln(a);
write('Введите n = '); readln(n);
p := 1;
for i := 1 to n do
p := p * sqr(a+i);
writeln('Произведение = ',p);
end;
Второе:
Код:
var
n : Integer;
s : Integer;
d : Integer;
begin
writeln('Введите числа, 0 для окончания ввода');
n := 1;
s := 0;
while true do
begin
write('введите a[',n,']=');readln(d);
if d = 0 then break;
p := p + d;
end;
WriteLn('S=',s);
end;
Третье:
Код:
var
n2, n3, n32, n25 : Integer;
i : integer;
d : integer;
s : string;
begin
Randomize;
n2 := 0;
n3 := 0;
n32 := 0;
n25 := 0;
For i := 1 to 10 do
begin
d := random(3) + 1;
if d = 2 then inc(n2);
if d = 3 then inc(n3);
if (d = 3) and ((i mod 2) = 0) then inc(n32);
if (d = 2) and (i < 6) then inc(n25);
end;
if n2 = n3 then writeln('Кол-во двоек равно кол-ву троек') else
if n2 < n3 then writeln('Кол-во двоек меньше кол-ва троек на ',n3-n2)
else writeln('Кол-во двоек больше кол-ва троек на ',n2-n3);
writeln('Кол-во троек на четных позициях = ',n32);
writeln('Кол-во двоек среди первых пяти чисел = ',n25);
end;
ЗЫ. Если нужны готовые проекты или надо переделать на оконный режим, то это уже платно, пиши в личку.