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

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.

Напишу на 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