Массивы.

[Дианочек]

Паскаль.
Массив А[1..5] и массив B[1..5] - целых чисел
массив C [1..5] = A*B+k
к- константа равная 15.
нужно вывести массив С на экран.
Не как не смогла додуматься как решить эту задачу, помогите пожалуйста

[BDA]

uses CRT;
var
a,b,c:array[1..5] of integer;
i:integer;
const
k=15;
BEGIN
clrscr;
writeln('Vvedite massiv A');
for i:=1 to 5 do
begin
	write('A[',i,']= ');
	readln(a[i]);
end;
writeln('Vvedite massiv B');
for i:=1 to 5 do
begin
	write('B[',i,']= ');
	readln(b[i]);
end;
for i:=1 to 5 do
	c[i]:=a[i]*b[i]+k;
writeln('Massiv C');
for i:=1 to 5 do
	write(c[i],' ');
readkey;
END.

[Дианочек]

ой спасибочкииииии