по Моргану и другим правилам ... =–А\/–В\/А=(–А\/А) \/–В=1\/–В=1
Дискета? или бумага. но бумага вроде больше подходит, потому что дискета появилась лишь в 1970-1990 году
Program Integer13;
var x,a,b,c,p:integer;
begin
Writeln('Vvedite chislo ');
readln(x);
a:=x div 100;
c:=x mod 100;
p:=c*10+a;
Writeln ('Result= ',p);
readln;
end.