Составить программу на языке Pascal

[erm]

1)Составить программу на языке Pascal,которая выводила бы на экран все трехзначные числа,проверяла бы,есть ли в десятичной записи каждого числа одинаковые цифры и выводила на экран сообщение:"одинаковые цифры есть" или "одинаковых цифр нет".
2)Составить программу на языке Pascal,которая позволяет ввести с клавиатуры целое трехзначное число,проверяет,симметрично ли оно,и печатает сообщение на экране.
Заранее огромнейшее спасибо!

[Mad_Cat]

2)

var
n:integer;
begin
readln(n);
writeln(n div 100 = n mod 10);
end.

[Serge_Bliznykov]

ну, раз пошла такая пьянка , решение задачи 1

var
 i:integer;
begin
for i:=100 to 999 do begin
  write(i);
  if (i div 100 = i mod 10) 
       or ((i mod 10) div 10 = i mod 10)
         or ((i mod 10) div 10 = i div 100) 
     then WriteLn(' Одинаковые цифры есть') 
     else WriteLn(' Одинаковых цифр нет') ;
end;
end.

[erm]

Большущие спасибо!!!

[erm]

Спасииииииибо! Вы просто спасли меня!!