Решение задачи Begin 11

#include<iostream>
#include<cmath>
using namespace std;
int main(){
	double a,b,a2,b2,s,r,p,c;
	cout << "Vvedite pervoe chislo: ";
	cin >> a;
	cout << "Vvedite vtoroe chislo: ";
	cin >> b;
	a2 = abs(a);
	b2 = abs(b);
	s = a2+b2;
	r = abs(a2-b2);
	p = a2*b2;
	c = a2/b2;
	cout << "Summa: " << s << endl;
	cout << "Raznost': " << r << endl;
	cout << "Proizvedenie: " << p << endl;
	cout << "Chastnoe: " << c;
	return 0;
}

import random

a = random.uniform(-100,100)
b = random.uniform(-100,100)
print("a = ", a)
print("b = ", b)
abs_a = abs(a)
abs_b = abs(b)
print("Модуль a = ", abs_a)
print("Модуль b = ", abs_b)
print("Сумма модулей: ", abs_a + abs_b)
print("Разность модулей: ", abs(abs_a - abs_b))
print("Произведение модулей: ", abs_a * abs_b)
print("Частное модулей: ", abs_a / abs_b)
									

program Begin11;
var
  a,b,Sum,Difference, Product, Quotient: Real;
begin
  Write('Введите число a: ');
  Readln(a);
  Write('Введите число b: ');
  Readln(b);
  Sum:=abs(a)+abs(b);
  Writeln('Сумма модулей a и b равна: ',Sum);
  Difference:=abs(a)-abs(b);
  Str(Difference,TempS);
  Writeln('Разность модулей a и b равна: ',Difference);
  Product:=abs(a)*abs(b);
  Writeln('Произведение модулей a и b равна: ',Product);
  Quotient:=abs(a)/abs(b);
  Writeln('Частное модулей a и b равна: ',Quotient);
end.