Надо ! составить схему и программу

Как-то так.
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
    setlocale(LC_ALL, "Russian");
    double G,  g_saturn, g_venus, m_venus, m_saturn, r_venus, r_saturn ;
    m_venus = 4.81068 * pow(10,24);
    m_saturn = 561.80376 * pow(10,24);
    r_venus = 6,052 * pow(10, 6);
    r_saturn = 60,100 * pow(10, 6);
    G = 6.67 * pow(10,-11);
    g_venus = G * m_venus / pow(r_venus, 2);
    g_saturn = G * m_saturn / pow(r_saturn, 2);
    cout << "Ускорение свободного падения на Венере: " << g_venus << endl;
    cout << "Ускорение свободного падения на Сатурне: " << g_saturn << endl;
      if (g_venus > g_saturn)
    {
     cout << "Венера имеет наибольшее ускорение свободного падения. " << endl;
    }
    else
    {
        cout << "Сатурн имеет наибольшее ускорение свободного падения. " << endl;
    }
    return  0;
}

Pascal:
program  Project;
var
  a,b,c: integer;
  min, max: integer;
begin
  Write('a=');
  Readln(a);
  Write('b=');
  Readln(b);
  Write('c=');
  Readln(c);
  if (a>b) and (a>c) then
  begin
     max:=a;
     if b>c then
     begin       
       a:=c;
       c:=max;
     end
     else
     begin
       a:=b;
       b:=max;
     end
  end else
  begin
     if (b>a) and (b>c) then
      begin
         max:=b;
         if a>c then
         begin       
           b:=c;
           c:=max;
         end
         else
         begin
           b:=a;
           a:=max;
         end
      end else
      begin
        max:=c;
         if a>b then
         begin       
           c:=b;
           b:=max;
         end
         else
         begin
           c:=a;
           a:=max;
         end
      end
  end;
  Write('a=',a);
  Write('b=',b);
  Write('c=',c)
end.