Если это среда разработки то нужно объявить переменные X и Y
далее написать схему выполнения данной задачи
Var
s:string;
max,min,i,k:integer;
begin
write('Введите строку: ');
readln(s);
s:=s+' ';
for i:=1 to length(s) do
begin
if s[i]=' ' then
begin
if k>max then max:=k;
if (k<min) or (min=0) then min:=k;
k:=-1;
end;
k:=k+1;
end;
writeln('Самое короткое: ',min,'; самое длиное: ',max);
<span>end.</span>
Var a,a1,a2,a3,a4,a5,b:integer;
begin
write('a = ');
readln(a);
a1:=a div 10000;
a2:=a div 1000 mod 10;
a3:=a div 100 mod 10;
a4:=a mod 100 div 10;
a5:=a mod 10;
b:=a5*10000+a4*1000+a3*100+a2*10+a1;
writeln('b = ',b);
end.
Пример:
a = 13524
b = 42531