Написать формулу, для вычисления суммы чисел, целого трехзначного числа.​

program xxx;

  var a,b,c : string;

begin

    write('введите название 1 фигуры-');

    readln (a);  

    write('введите название 2 фигуры-');

    readln (b);  

    write('введите название 3 фигуры-');

    readln (c);

    writeln (' фигуры: ',a,b,c);

    readln

end.

ну вот так это будет выглядеть с ветвлением и возможностью повторять вычисления без повторного запуска программы.

var a,b,c,d,z: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('хотите ли вы решить еще один пример? 1-да, 0-нет'); read (z); while (z = 1) dobeginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('хотите ли вы решить еще один пример? 1-да, 0-нет'); read (z); end; end. 

если 25(из которых 15 сто пудов в школьной и 10 смешанные) берут в школьной, то 10 человек берут в районной.

если 20(из которых 10 сто пудов берут в районной 10 смешанные), то 15 в школьной

получается 1) 10 человек; 2)15 человек; 3)10 чкловек; 4)10 чел; 5)15 чел. 

15 гб = 15360 мбайт = 122880 мбит

32 мин = 1920 с.

скорость = 122880/1920 = 64 мбит/с