Пожалуйста посчитайте с заданием на языке PascalИспользуя оператор условного перехода, напишите программу,которая: запрашивает с клавиатуры два целых числа, их сумму и произведение и выводит на экран сооб-щение о правильности сделанных пользователем вычислений;

begin
  var (a,b):=ReadReal2('Введите два числа через пробел:');
  var (s1,p1):=ReadReal2('Введите через пробел из сумму и произведение:');
  var (s2,p2):=(a+b,a*b);
  if s1=s2 then Writeln('Сумма верна')
  else Writeln('Сумма не верна, ',s2);
  if p1=p2 then Writeln('Произведение верно')
  else Writeln('Произведение не верно, ',p2)
end.


Введите два числа через пробел: 1.4 -2.5
Введите через пробел из сумму и произведение: -1.1 -3.25
Сумма верна
Произведение не верно, -3.5