Який символ додається до листа що пересилається Fw: Or: Re:

var

 a: string;

 b: array[1..9]of integer;

 sort: boolean;

 max, k: integer;

begin

 Readln(a);

 for var i := 1 to Length(a) do

   b[i] := strtoint(a[i]);

 sort := false;

 while sort = false do

 begin

   sort := true;

   k += 1;

   for var i := 1 to Length(a)-1 do

   begin

     if a[i] < a[i+1] then

     begin

       sort := false;

       var value2 := a[i];

       a[i] := a[i+1];

       a[i+1] := value2;

     end;

   end;

 end;

 write(a[1]);

end.

Программа написана на PascalABC.net

на free pascal или turbo pascal она может не работать

#include<iostream>
using namespace std;

int main ()

{
system("CHCP 1251>NUL");
int m,n;
int max;
cout<<"m="; cin>>m;

cout<<"n="; cin>>n;

if (m==0 || n==0)
{
cout<<"не выполняется условие" << endl;
system("pause");
return 0;
}
if (n>m)
max=n;
else
max=m;
cout<<"ответ:" << endl;

for (int i =-max; i<=-1; i++) // - цикл определения отрицательных делителей.
{
if ((m%i==0)&&(n%i==0))
cout<< i <<" ";  // вывод отрицательного результата
}
for (int i = 1; i<=max; i++) // цикл для определения положительных делителей
{
if ((m%i==0)&&(n%i==0))
cout<<i<<" "; // вывод положительного результата
}
cout<<endl;
system("pause");
return 0;
}