Написать программы.
1. Пользователь вводит трехзначное число. Выведите на экран число-палиндром.
2. Пользователь вводит трехзначное число. Программа вычеркивает первую слева цифру и дважды дописывает справа эту цифру. Выводит на экран результат.

1.uses crt;

label start;

var

L:integer;

n,n1,n2:string;

begin

start: clrscr;

write(' введите число (9<N<999):'); readln(n);

L:=length(n); if L>4 then goto start;

n1:=copy(n,1,1);

n2:=copy(n,L,1);

if n1=n2 then write(n,'-число полиндром') else write(n,'-число н полиндром');

end.

Объяснение:

2 задачку я не решил потому что очень похож на 1 ую постарайся сам делать 2 ую:)