, с практическим заданием. Эксель

ток-кот=кто это 954-459=495. бра+бар=раб это 495+459=954

var  a, s: integer; // целочисленный тип данныхbeginwriteln('введите число: ');   readln(a); // вводим число (можно больше трех знаков)  while a < > 0 do  // пока остались цифры в числе   begin      s : = s + (a mod 10); // отбираем последнюю цифру числа и прибавляем к сумме      a : = a div 10; // стираем последнюю цифру числа  end;   writeln('сумма цифр = ', s) // выводим результатend.

var x,x1,x2,x3: integer; //x1- 1 число, х2- 2 число, х3 - 3 число

begin

  randomize;

  x: =random(1000)+10;

  if x div 100 > 0 then begin x1: =x div 100;

                                          x2: =(x mod 100) div 10;

                                          x3: =(x mod 100) mod 10;

                                          writeln(x,', ',x3,x2,x1);

                                  end

                          else writeln(x);

end.

var a: array [1..5] of real;

      i: integer;

      min: real;

begin

  min: =1000;

  for i: =1 to 5 do begin

    readln(a[i]);

    if a[i]< min then min: =a[i];

                          end;

  writeln('минимальный вес равен ',min);

end.