program Exam20;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
ss=string[80];
var
st1,st2:ss;
m,n,i,j,u:integer;


Procedure Upor( var st:ss);
var p:char;
begin
For i:=1 to length(st)-1 do
for j:=1 to length(st)-i do
if st[j]>st[j+1] then
begin
p:=st[j];
st[j]:=st[j+1];
st[j+1]:=p;
end;
for i:=1 to length(st) do writeln(st[i]:4);
writeln;
writeln;
end;
begin
writeln('Vvedite stroku:');
readln(st1);
Upor(st1);
writeln('***************');
writeln('Stroka1 posle:');
writeln(st1);
writeln;

writeln('Vvedite stroku:');
readln(st2);
Upor(st2);
writeln('***************');
writeln('Stroka2 posle:');
writeln(st2);
writeln;
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.