Запишите раздел описания переменных, необохимых ля вычисления а) значения фукции y=x2

1.

1) s := (x1+x2)/2

2) dec(k) или k:=k-1

3) inc(i) либо i:=i+1

4) sum := t*kt + r*kr + k*kk (t, r, k - цена одной тетради, ручки, карандаша;  kt, kr, kk - количество тетрадей, ручек и карандашей) 

2.

а) значения функции y=х(в квадрате)

var y,x: real

б) площади прямоугольника

var a,b,s: real

в)цены покупки,состоящей из нескольких тетрадей и такового же кол-ва обложек

var kv:integer; st,so,sum: real

г)стоимости покупки,состоящей из нескольких тетрадей,нескольких ручек и нескольких карандашей

Так?