УРУГВАЙ ,ПАРАГВАЙ,АФГАНИСТАН
Var N:integer;
r1,r2,r3:byte;
Begin
WriteLn('Введите четырёхзначное число');
ReadLn(N);
r1:=N div 1000;
r2:=(N div 100) mod 10;
r3:=(N div 10) mod 10;
N:=N mod 10;
Write((r1<>r2)and(r1<>r3)and(r1<>N)and(r2<>r3)and(r2<>N)and(r3<>N))
End.
1. Можно, это те же латинские буквы
2. x>=5, y<>10
3. можно
4. Можно. Записываются в одинарных скобках - 'Привет!'
в режиме малого окна открывается окно Word при загрузке