Составьте программу, которая бы складывала, вычитала, умножает два произвольных натуральных числа, задаваемых любым пользователем.

Напишу на QBasic.

cls

input "первое число=", a

input "второе число=", b

input "третье число=" c

D1=a+b+c

print "D1="; D1

D2=a-b-c

Print "D2="; D2

D3=a*b*c

print "D3=";D3

End

program dva_chisla;

var

   a,b,s,p,v:real;

Begin

  Writeln('Введите два числа');

  Readln(a,b);

  s:=a+b;

  writeln('Сумма чисел ',a,' + ',b,' = ',s);

  v:=a-b;

  writeln('Разность чисел ',a,' - ',b,' = ',v);

  p:=a*b;

  writeln('Произведения чисел ',a,' * ',b,' = ',p);

End.