Вопрос по математике:

Округлить с точностью до второй значащей цифры ,а затем найти сумму ,разность,произведение и частное данных чисел. 1)а=5,748 2)а=-0,045 б=2,0567 б=-0,593 Очень срочно контроша!

var a,b,s,r,p,c:real; begin writeln('Введите 2 вещественных числа'); readln(a,b); s:=a+b; writeln('Сумма=',s:0:2); r:=a-b; writeln('Разность=',r:0:2); p:=a*b; writeln('Произведение=',p:0:2); if b=0 then write('Частное не определено, деление на 0') else  begin   c:=a/b;   write('Частное=',c:0:2);  end; end.