Вычисление конечных сумм и произведений

[Nassylbekova]

(Делфи)Задача:
Вычислить сумму и произведение:
Безымянный33.png
где і-номер варианта. Функция z=5*x-2*y. Вычислить значение выражения z и вывести х,у,z.
Начала, но не получается
procedure TForm1.Button1Click(Sender: TObject);
const i=13;
var
z:real;
y: real;
x: real;
st: string; // èçîáðàæåíèå òàáëèöû

begin
st:=''; x := 1;
y:=1;
dx := 0.5;
for i:=1 to 18 do
z := 5*x -2*y;
st := st+ FloatToStr(x)+' '+ FloatToStr(y)+chr(13); end;
Label1.Caption

end;


end.

[digitalis]

Какая-то z#@&%%, а не задача : функция от 2 переменных, а в вычисляемых циклах - от одной (k). Колесо от трактора Беларус для Боинга 767 ?