Решить две : 1. определить, является ли введенная строка палиндромом. 2. вводится имя файла (может и без расширения). вывести имя файла с расширением exe

2:
Pascal

var
name_file: String;
begin
writeln('Введите имя файла');
readln(name_file);
writeln(name_file, '.exe');
readln;
end.