Задание в Python, на
1. введите четырехзначное целое число. сделать программу для нахождения суммы и произведения его цифр.
2. сделать программу для нахождения площади и объема шара, если его радиус 1740км
3. дано координаты вершин четырехугольника на плоскости. сделать программу для нахождения длинны диагоналей четырехугольника.
4. сделать программу, где нужно ввести два целых числа. должно появится уведомление о том, принадлежит ли большее число промежутку [10; 20] и меньшее - промежутку [5; 8]
5.
6. радиусы цилиндров: 6; 8; 10; 12. Высота цилиндра для каждого радиуса может быть равна 5; 7; 9; 11. Сделать программу для нахождения полной площади и объема цилиндров. Подсчёт должен останавливаться, если высота цилиндра равна 9

#include <iostream>
using namespace std;
void main ()
{
int a,b;
cin>>a>>b;
int temp;
if (a>b) {temp = b; b=a; a= temp; }
   cout<< "ves' diapozon"<<endl;
for (int i = a; i<=b; i++)
   {

   cout<< i<<" ";
   }
cout<<endl;
   cout<< "chetnye"<<endl;
for (int i = a; i<=b; i++)
   {
   if ( (i%2)==0)  cout<< i;
   }
cout<<endl;
cout<< "ne chetnye"<<endl;
for (int i = a; i<=b; i++)
   {
   if ( (i % 2) !=0)    cout<< i<<" ";
   }
cout<<endl;
   cout<< "krany 7"<<endl;
for (int i = a; i<=b; i++)
   {
   if( (i%7)==0) cout<< i;
   }
system("pause");
return 0;
}

{ Запись 5 строк в файл }
procedure TForm1.Button1Click(Sender: TObject);
var outfile: TextFile;
begin
AssignFile(outfile, 'outfile.txt')
;Rewrite(outfile);
writeln(outfile, 'Привет из Delphi');
writeln(outfile, 'Моя программа работает, и выводит '
+'данный текст, чтобы доказать это...');
writeln(outfile, '3. Треться строка');
writeln(outfile, '234 четвертая');
writeln(outfile, 'Пятая строка');
CloseFile(outfile);
end;

// вывод на экран точнее в мемо или лист бокс

procedure TForm1.Button2Click(Sender: TObject);
begin 
// выводим в мемо
 Memo1.Lines.LoadFromFile('outfile.txt');
// либо в лист бокс как тебе лучше
 ListBox1.Items.LoadFromFile('outfile.txt');
end;

// кнопка для закрытия 

procedure TForm1.Button3Click(Sender: TObject);
begin 
Close;
end;

// событие onClose

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  if MessageDlg('Вы точно хотите выйти?',     mtConfirmation, mbOkCancel,0)= mrOk then begin     
CloseAction:= caFree;   
     end
  else begin
     CloseAction:= caNone;
  end;
end;

ЗДЕСЬ!
outfile.txt - это ваш файл(может создаваться автоматически

ЧТО НУЖНО СДЕЛАТЬ?
1. Закинуть на форму 3 кнопки
2. Закинуть ListBox или Memo
3. В событиях формы в инспекторе объектов (Инспетор Объектов/ События/ onClose) в onClose выбрать процедуру FormClose