(1+1\x^2)^x-12x^2y в паскале решить нужно

Var x,y,a: real; begin readln(x,y); a: =power(1+1/sqr(x),x) - power(12*x,2*y); writeln(a); end.

Program n94780249; const   s: longint = 0; var   x: longint;   t: string;   e: integer; begin   writeln('вводите целые числа (0 - окончание ввода) : ');   repeat     repeat       write('> ');       readln(t);       val(t, x, e);       if e < > 0 then         writeln('ошибка! повторите ввод. ')     until e = 0;     s += x   until x = 0;   if s = 0 then     writeln('числа не вводились. ')   else     writeln('сумма введённых чисел = ', s, #10);   write('для завершения работы нажмите ');   readln end.

Cущественное свойство - быстро обрабатывает информацию из 0 и 1. не существенное свойство - прекрасная полочка для оптических дисков, флэшек и губной . польза сада - плоды, не существенное - это красота цветущих яблонь (часто всё скворечник - дом для скворца и часто место питания кошки. полезное свойство текстового редактора в компании с принтером и сканером - хорошая издательская ситстема , и если она хорошо работает , то у нее нет не существенный прнизнаков (это мое личное ) хорошо, что перевозит людей, и несущественно, что загрязняется атмосфера города (но тут ничего не сделаешь, лошадей на всех не