ПОМОГИТЕ РЕШИТЬ ПОЖАЛУЙСТА

var a,b:real; // Если не подходит, используйте integer

begin

read(a);

read(b);

writeln('a+b=', a+b);

writeln('a-b=', a-b);

writeln('a*b=', a*b);

if b=0 then writeln('На ноль разделять нельзя')

else writeln('a/b=', a/b);

writeln('a div b =', a div b);

writeln('a mod b =', a mod b);

writeln('a=', sqrt(sqr(a))); //корень из квадрата-есть модуль

writeln('b=', sqrt(sqr(b)));

writeln('sqr(a)=', sqr(a));

writeln('sqr(b)=', sqr(b));

if alt;0 then writeln('Ошибка')

else writeln('sqrt(a)=', sqrt(a));

if blt;0 then writeln('Ошибка')

else writeln('sqrt(b)=', sqrt(b));

writeln('a^b=', power(a,b);

end.