Курсовая работа: Составить программу на языке Turbo Pascal для параллельной сортировки чисел

begin

clrscr;

for i:=1 to 35 do

begin

textcolor(1);

write(chr(5));

end;

writeln;

TextColor(1); write(chr(5));

repeat

f:=true;

textcolor(5);

write(' vvedite familiu= ');read(fam);

TextColor(1); write(chr(5));

e:=length(fam);

for i:=1 to e do

begin

val(fam[i],n,kod);

if kod=0 then

f:=false;

end;

if f=false then writeln('neverno vvedena familia') else

until f=true;

Textcolor(4); write(' kol-vo bukv v familii= ',e);

TextColor(1); write(' ',chr(5));

writeln;

write(chr(5));

TextColor(11); write(' vvedite massiv iz ',e,' chisel: ');

TextColor(1); write(chr(5));