Написать программу на языке паскаль. на вход программе дается 2 числа. определите какое из них большее, из большего вычеслить меньшее. на выход разностей чисел
program CompareNumbers va num1, num2, bigger, smaller, diff: integer begi write('Enter the first number: ') readln(num1) write('Enter the second number: ') readln(num2);
if num1 > num2 the begi bigger := num1 smaller := num2 en els begi bigger := num2 smaller := num1 end;
diff := bigger - smaller writeln('The bigger number is: ', bigger) writeln('The smaller number is: ', smaller) writeln('The difference between the numbers is: ', diff) end.
program CompareNumbers
va
num1, num2, bigger, smaller, diff: integer
begi
write('Enter the first number: ')
readln(num1)
write('Enter the second number: ')
readln(num2);
if num1 > num2 the
begi
bigger := num1
smaller := num2
en
els
begi
bigger := num2
smaller := num1
end;
diff := bigger - smaller
writeln('The bigger number is: ', bigger)
writeln('The smaller number is: ', smaller)
writeln('The difference between the numbers is: ', diff)
end.