Дано двузначное число. напишите программу, которая определяет: есть ли среди цифр заданного целого двузначное числа одинаковые.
,

//Pascal
var A, B, C, max: real;
begin
    readln (A, B, C);
    if A >= B then
      max := A
    else
      max := B;  
    if A > max then
      max := C;
    writeln(max - A,, max - B, , max - C);
end.

Sub aaa()
    n = CInt(InputBox("n="))
    x = CDbl(InputBox("x="))
    sx = Cos(x)
    s = sx
    For i = 2 To n
        sx = Cos(sx)
        s = s + sx
    Next i
    MsgBox s
End Sub

Конечно! еще много места останется. 

Нет, получим всегда 0.
Исходное высказывание получим только в том случае, если оно и было 0.