Пожалуйста посчитайте пожалуйста очень срочно 1 и 2

Program n_1;
Uses crt;
Var a,i,j:real;
Begin
Writeln('Введите a');
Read(a);
Writeln('Введите i');
Read(i);
Writeln('Введите j');
Read(j);
If a=5.5*i^2-2/i(2j^2-6j+1);
A=a