подпрограма(процедура)

[misha25525]

написать пидпрограму(процедуру) для обчислення выразу
8
y=∑(p-3)
p=3

[RUSt88]

int s = 0;
for (int i = 3; i <=8; i++)
{
   s += i - 3;
}
printf("%d", s);

[misha25525]

ето на паскале?

[RUSt88]

это на С

сразу бы язык указывали тогда

program P;
var
i, s: integer;
begin
  s := 0;
  for i := 3 to 8 do begin
    s := s + i - 3;
  end;
  writeln("E = ", s);
end.

[misha25525]

А где здесь подпрограма?

[Google2010]

program P;
var
i, s: integer;
procedure bred(var p:integer);
begin
p:=p-3;
end;
begin
  s := 0;
  for i := 3 to 8 do begin
 bred(i);   
 s :=s+i;
  end;
  writeln("E = ", s);
end.