Дано вещественное число – цена 1кг конфет. вывести стоимость 0.1, 0.2, … , 1кг. входные данные: ввести одно вещественное число a (1< =a< =100 выходные данные: вывести стоимость 0.1, 0.2, … , 1кг конфет с точностью до 4 цифр в дробной части.

Var a, i: real; begin       readln(a);       while (i < = 1) do       begin           i : = i + 0.1;           writeln(i, ' kg -> ', i * a: 4: 4, ' y.e.');       end; end.: ))

посмотри в help'е функцию exec. у  меня turbo pascal поэтому пример оттуда

 

program startapl;  

{$m $4000, 0, 0 } { 16kб стек, нет кучи }uses crt, dos; var programname, cmdline : string; begin

    clrscr;       write('имя программы для запуска (с путём) : ');     readln(programname);     write('параметры командной строки ', programname, ' : ');     readln(cmdline);     writeln('пробую ');     swapvectors;     exec(programname, cmdline);     swapvectors;     writeln(' вернулся из exec'); { была ошибка ? }  if doserror < > 0 then  writeln('ошибка dos #', doserror)        else   writeln('запуск был удачным. код выхода = ', dosexitcode); end.

в данной программе предполагается что массив целочисленный 

program massiv;

uses crt;

var a: array[1..10] of integer;

        temp,max,i: integer;

begin

    clrscr;  

 

    for i: =1 to 10 do

          begin

              write('введите   ',i, 'элемент массива: ' );

              readln(a[i]);  

          end;

    writeln;

 

     

 

  write('исходный массив: ');

max: =a[1];  

 

  for i: =1 to 10 do

      begin

          write(a[i])

          write('   ');

        if (a[i]> max) tnen max: =a[i];    

      end;  

 

  temp: =a[6];

  a[6]: =a[9];

a[9]: =temp;

 

 

 

  writeln;

  write('массив после обмена: ');  

for i: =1 to 10 do

      begin

          write(a[i])

          write('   ');  

      end;

writeln;  

writeln('максимальный элемент массива: ',max);

      readkey;

 

  end.