Readln(a);
a1:=a div 100;
a2:=a div 10 mod 10;
r:=abs(a1-a2);
Var
A:byte;
Begin
A:=random(151)+5;
if (25 < A)and(A < 100) then WriteLn('Число ',A,' содержится в интервале (25,100)')
else WriteLn('Число ',A,' не содержится в интервале (25,100)')
End.
===== PascalABC.NET =====
begin
ReadInteger.ToString.Select(c -> c.ToDigit ** 3).Sum.Println
end.
Var i:Integer;
A:array[1..10] of Integer ;
Begin
For i:=1 to 10 do begin
A[i]:=random(26)-5;
Write(A[i], ' ') ;end;
Writeln;
For i:=1 to 10 do begin
If A[i]<0 then A[i]:=abs(A[i])
Else A[i]:=-A[i];
Write(A[i], ' ') end;
End.
Var a, b, k:integer;
begin
readln(a);
readln(b);
if (a+b)>10 then
writeln(2*a*b)
else
if (a>b) then
begin
k:=a;
a:=a+b;
b:=k-b;
end
else
begin
k:=b;
b:=b+a;
a:=k-a;
end;
writeln(a, ' ', b);
end.