2. Даны две переменные целого типа: Q и Z. Если их значения равны, присвоить Q значение среднего арифметического этих двух действительных положительных чисел, а если не равны, то присвоить Z значение среднего геометрического этих двух действительных положительных чисел.
3. Написать программу, которая выводит на экран значения функции у=5х2-х+2 для х, изменяющегося в диапазоне от -3 до 3 с шагом 0,5

Спасибо огромное!!

Program z14;  Var q, z:integer; sr, sg, x, y: real;Begin  write('Введите число Q = '); readln(q);  write('Введите число Z = '); readln(z);    writeln('Задание 2:');  if (q = z) then             begin              sr:= (q + z) / 2;              writeln('Среднее арифметическое = ', sr);             end             else              begin              sg:= sqrt(q * z);              writeln('Среднее геометрическое = ', sg);             end;               writeln('Задание 3:');  x:= -3;  while (x <= 3) do  begin    y:= 5*x*x - x + 2;    writeln('X = ', x, '  Y = ',y);    x:= x + 0.5;  end;End.