Пункт главного меню, с которого пользователь получает доступ к программам, установленным на его компьютере.

Все программы или программы

Вводишь сперва количество чисел, которое будет введено с клавиатуры, в твоем случае это 3. затем вводишь сами три числа, каждый раз нажимая энтер когда ввел число. например 12,13,7. сумма будет 20. этот код работает также с любым другим количеством чисел, например вводишь 5, затем набираешь пять чисел целых, он считает сумма некратных трем.  var a,n,i,s: integer;   begin  read(n);   while i< n do begin    read(a);     if (a mod 3=1) then s: =s+a; i: =i+1;   end;   writeln(s);   end.

Unit unit1; interface uses   windows, messages, sysutils, variants, classes, graphics, controls, forms,   dialogs, stdctrls, extctrls; type   tform1 = class(tform)       image1: timage;       button1: tbutton;       opendialog1: topendialog;       procedure button1click(sender: tobject);   private       { private declarations }   public       { public declarations }   end; var   form1: tform1; implementation {$r *.dfm} procedure tform1.button1click(sender: tobject); begin   if opendialog1.execute then   begin   image1.picture.loadfromfile(opendialog1.filename);   image1.stretch: =true;   image1.left: =form1.width div 2-image1.width div 2;   image1.top: =form1.height div 2-image1.height div 2;   end end; end.