Перевод кода с Pascal на Java

[Kolyan3131]

Арифметическая прогрессия задана первым членом -a1 и разностью d. Вычислить N первых членов этой прогрессии и их произведение

{$N+}
uses crt;
var a1,i,n:integer; an,d:longint; pro: double;
begin
clrscr;
write('Vvedite a1, d, N: ');
readln(a1,d,n);
pro:=1;
for i:=1 to n do
    begin
    an:=a1+d*i-d;
    pro:=pro*an;
    writeln(an);
    end;
write('Proizvedenie= ',pro:0:0);
readkey;
end.

И блок схему если можно братцы )

[Alex11223]

Тут не бесплатное бюро переводов.

Назовите нормально тему, покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.