Программа на ТР

[zloygeniyrus]

Даны натуральные числа n,b0,...,bn.Вычислить f(bo)+(b1)+...(bn),где f(x)=x в квадрате,если x кратно 3;f(x)=x,если x при делении на 3 дает остаток 1;
f(x)=x/3-в остальных случаях.

Заранее спасибо!

program Pe4enka;
USES CRT;
var
s:real;
n,a,i:integer;
begin
clrscr;
S:=0;
write('Enter N: ');
readln(n);
writeln('Enter elements');
for i:=1 to n do
begin
read(A);
case (a mod 3) of
0: S:=S+a*a;
1: S:=S+a;
else S:=S+a/3;
end;
end;
write('S=',S:5:5);
readkey;
end.
Но эт больше на бред смахивает=)

Тут вроде цикл и разветвление....

[zloygeniyrus]

uses crt;
const nmax=50;{максимальный размер массивов}
type Tnatur=1..maxint;{тип натуральные числа}
var n,i:byte;
b:array[0..nmax] of Tnatur;{исходный массив}
f:array[0..nmax] of real;{результирующий массив}
begin
clrscr;
randomize;{генерация псевдослучайных чисел}
repeat
write('n=');{вводим размер массива с проверкой правильного ввода}
readln(n);
until (n>0)and(n<=nmax);
writeln('Ishodnyj massiv:');
for i:=0 to n do
begin
b[i]:=random(20)+1;{псевдослучайные числа в инт. 1-20}
write(b[i],' ');
end;
writeln;
writeln;
writeln('Rezultat:');
for i:=0 to n do
begin
if b[i] mod 3=0 then f[i]:=sqr(b[i]){если кратно 3}
else if b[i] mod 3=1 then f[i]:=b[i]{если в остатке 1}
else f[i]:=b[i]/3;{если в остатке 2}
write(f[i]:7:2);{выводим в форматированном виде, 7 позиций под число, 2 знака после запятой}
end;
readln
end.

какбэ так...

В общем помогите написать полностью рабочую и красиво выглядящую прогу)
заранее ОГРОМНОЕ спасибо
p.s Надеюсь теперь я никаких правил форума не нарушил...

[capta1n]

program project;
const
 n = 5;
 b : array [0..n] of word = (0,1,2,3,4,5);
var
 i : byte;
 sum : real;
begin
  sum:=0;
  for i:=0 to n do
   if b[i] mod 3 = 0 then sum:=sum+sqr(b[i])
   else
    if b[i] mod 3 = 1 then sum:=sum+b[i]
    else sum:=sum+b[i]/3;
  writeln (sum:0:2);
  readln
end.