Информатика! с+. составьте программу вычисления четырех чисел, произведения первого и второго введенного числа, разности третьего и четвертого введенного числа ( все в одной программе

Если c++ то решение такой.

#include <iostream>

using namespace std;

int main() {

int a, b, c, d;

cout << "Введите 4 числа через пробел: ";

cin >> a >> b >> c >> d;

cout << "Произведение: " << a*b << endl;

cout <<"Разность: " << c-d << endl;

}

#include <iostream>

#include <list>

#include <algorithm>

#include <iterator>

#include <cctype>

int main()

{

   std::list<char> lt{'5', 'a', 'c','g', '7', 't', '!'};

   std::cout << std::endl;

   std::copy(lt.begin(), lt.end(), std::ostream_iterator<char>(std::cout, " "));

   lt.remove_if([](char& var1)

   {

       return !(std::tolower(var1, std::locale()) >= 'a' && std::tolower(var1, std::locale()) <= 'z');

   });

   std::cout << std::endl;

   std::copy(lt.begin(), lt.end(), std::ostream_iterator<char>(std::cout, " "));

}

program Fizika;

uses crt;

var NUM,a,b,c,d,e,i,f,g,h,j,k,r,t:integer;

begin

clrscr;

writeln('Введите число №1:');

readln (a);

writeln('Введите число №2:');

readln (b);

writeln ('1) Швидкість');

writeln ('2) Шлях');

writeln ('3) Час ');

writeln ('4) Густина ');

writeln ('5) Маса ');

writeln ('6) Обєм ');

writeln ('7) Висота ');

writeln ('8) Площа ');

writeln ('9) Сила тяжіння');

writeln ('10) Маса ');

writeln ('11) Прискорення вільного падіння ');

writeln('Введите число от 1 до 11:');

readln (NUM);

c:=a div b;

d:=c*b;

e:=d div c;

i:=a div b;

f:=i*b;

g:=f div i;

h:=a div b;

j:=a div h;

k:=a*b;

r:=k div b;

t:=k div r;

case NUM of

1:writeln ('Швидкість дорівнює:', c, ' м/с');

2:writeln ('Шлях дорівнює:', d, 'м');

3:writeln ('Час дорівнює:', e, 'c');

4:writeln ('Густина дорівнює:', i, 'кг/м3');

5:writeln ('Маса дорівнює:', f, 'кг');

6:writeln ('Обєм дорівнює:', g,'м3');

7:writeln ('Висота дорівнює:', h,'м');

8:writeln ('Площа дорівнює:', j, 'м2');

9:writeln ('Сила тяжіння дорівнює:', k ,'Н');

10:writeln ('Маса дорівнює:', r, 'кг');

11:writeln ('Прискорення вільного падіння дорівнює:', t,'Н/кг');

end;

end.