Составить программу произведенийквадратов 5 нечетных чисел , начиная с 3.вывести на экран эти числа и их произведения

Program pascal; var  a, b, q, w, e, r, t: integer;   sqr:   string; begin  q: =3;   w: =5;   e: =7;   r: =9;   t: =11;   sqr: =sqr;   writeln('введите sqr то бы увидеть все квадраты и произведение всех квадратов');     write('введите нечетные числа. от 3 до 11: ');     read(sqr);     if sqr=sqr then    writeln('3*3= ', q*q);     writeln('5*5= ', w*w);     writeln('7*7= ', e*e);     writeln('9*9= ', r*r);     writeln('11*11= ', t*t);     writeln('произведения всех квадратов: ', q*q*w*w*e*e*r*r*t*t);   read(a);     if a=11 then      writeln('произведение квадратов: 11*11')      else      if a=9 then      writeln('произведение квадратов: 9*9')      else    if a=7 then      writeln('произведение квадратов: 7*7')      else    if a=3 then      writeln('произведение квадратов: 3*3')      else    if a=5 then      writeln('произведение квадратов: 5*5')      else      writeln('доступно: 3, 5, 7, 9, 11');   end.

Сделай лучшимм

..