Free pascal! Описать функцию R (a), которая определяет есть ли в заданном пятизначном числе одинаковые числа.

Function R (A:longint) : boolean;

Var

C:array[1 ... 5] of byte;

i, j:byte;

Begin

For i: = 1 to 4 do

Begin

C[i]:=A mod 10;

A:=A div 10

End;

For i: = 1 to 5 do

For j:=i+1 to 5 do

if C[i] = C[j] then R:=true;

End;

Var

A:longint;

Begin

Write ('Введите пятизначное число: ') ; ReadLn (A) ;

if R (A) then Write ('Да')

else WriteLn ('Нет') ;

End.