Представьте десятичные числа в весовом виде

а) 4352
б) 249051
в) 756934021

program p_1; var i, n : integer; a, s : real; b : array [1..1000] of real; begin writeln('введите число а'); readln(a); writeln('введите количество значений массива n'); readln(n); write('введите элементы массива b'); for i: =1 to n do readln(b[i]); writeln('первоначальный массив b'); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if b[i] > a then s: =s+b[i]; writeln('сумма значений =', s); end.

файл в паскале должен иметь расширение конечно же а)

program xxx;

  var  a, b, c, s, p : real;

begin

  write('введите первое число а =');

  readln(a);

  write('введите второе число b = ');

  readln(b);

  write('введите треnmt число c = ');

  readln(c);

  s: = a + b + c;

  p: = a * b * c;

  writeln('сумма чисел =', s);

  writeln('произведение чисел =', p);

  readln

end.