Question

ПАСКАЛЬ составьте программу определяющую разность цифр данного двузначного числа n

Answer 1

var n,a,b:Integer;
begin
Read(n);
a:= n div 10;
b:= n mod 10;
WriteLn(a-b);
end.

Answer 2

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var n:=abs(ReadInteger);
write(n mod 10-n div 10);
end.