Задача на процедуры и функции

[aiktz]

прошу вашей помощи господа! плиз решите одну задачку на процедуры и функции, а остальные я постараюсь сделать на этом примере..очень нужна ваша помощь!

С помощью процедуры умножения вектора на число получить вектор С = 4,5х + 5,1y, где векторы х и y заданы.

[Sazary]

На рисунке i в квадрате?
Вообще задание какое-то некорректное.
S(n) = (i+2)*(i^2+1);
Если правильно понял, то вот функция.

function fun(n : integer) : integer;
var i,s : integer;
begin
s := 0;
for i:=1 to n do
 s := s + (i+2)*(sqr(i)+1);
fun := s;
end;

[aiktz]

спасибочки.....значит япросто пишу начало программмы...а потом прочто ф-цию вставляю????

[Sazary]

значит япросто пишу начало программмы...а потом прочто ф-цию вставляю????

Функцию вставьте перед телом основной программы.