Question

написать программу нахождения разности двух  чисел x=50 y=32

Answer 1

Program asd;
Const x=50; 
         y=32;
var r:integer;
BEGIN
R:=x-y;
Writeln('',x,' - ',y,' = ',R);
Readln;
END