1)дано двузначное число. определить: одинаковы ли его числа. 2) мастями игральных карт условно присвоены след. порядковые номера: "пики"-1., "трефы"-2, "бубны"-3, "черви"-4. по заданному номеру масти m(1

2)

Program Masty 

Uses Crt;
var n:integer;
begin
clrscr;
write('введи номер масти 1-4 :');
readln(n);

case n of
1:writeln ('Пики');
2:writeln ('Трефы');
3:writeln ('Бубны');
4:writeln ('Червы');
else writeln('Неправильный номер масти');
end;
readkey;
end. 

 1)

Program Cifry;

 Uses Crt;
var n:integer;

       s:string[2];
begin
clrscr;
 write('введи двузначное целое число :');
  readln(n);

  str(abs(n),s);

if (s[1]=s[2]) then writeln('Цифры числа одинаковые')

  else  writeln('Цифры числа не одинаковые'); 

  readkey; 

end.