<span><em /><em /><em /><em>Я, конечно, не понял, что такое "точнее нужна нач программа для того что бы он вышел", но вот прототип игры из примеров паскаля, в которой невозможно победить (запускать через Pascal.ABC, в остальных версиях могут не работать лэйблы).</em></span>
Удаление слова при его выделении
1) с
2) корневой каталог - С:
каталог первого уровня - windows
каталог второго уровня - appcompat
каталог третьего уровня - appraiser
3) b
Var n,m:integer;
procedure inverse(a:integer; var b:integer);
begin
b:=0;
while a>0 do
begin
b:=b*10+a mod 10;
a:=a div 10;
end;
end;
begin
write('n = ');
readln(n);
inverse(n,m);
if n=m
then writeln('Число - палиндром')
else writeln('Число - не палиндром');
end.
Пример:
n = 123321
Число - палиндром