Нужно исправить ошибки помогите пожалуйста,даю 25 балов

Question

Нужно исправить ошибки помогите пожалуйста,даю 25 балов

---

Comments

А с чем тут тебе собственно помогать то?

---

А есть код текстом а не картинкой?

---

program cifry;
c, s, p: integer;
d: byte;
writeln('Программа расчёта
разности произведения и суммы
цифр трёхзначного числа.');
c:=100+random (900);
writeln('Число -', c);
p:=1;
s:=0;
d:=c mod 10
s:=s+d
p:=p*d;
c:=c div 10
d:=c mod 10;
s:=s+d;
p:=p*d;
c:=c div 10
d:=c mod 10;
s:=s+d;
p:=p*d;
c:=c div 10
write('Разность произведения
и суммы цифр числа -', p-s);

Answer 1

Ответ:

program cifry;

var p: integer;

var c: integer;

var s: integer;

var d: byte;

BEGIN

writeln('Программа расчёта разности произведения и суммы цифр трёхзначного числа.');

c:=100+random (900);

writeln('Число -', c);

p:=1;

s:=0;

d:=c mod 10;

s:=s+d;

p:=p*d;

c:=c div 10;

d:=c mod 10;

s:=s+d;

p:=p*d;

c:=c div 10;

d:=c mod 10;

s:=s+d;

p:=p*d;

c:=c div 10;

write('Разность произведения и суммы цифр числа -', p-s);

end.

Объяснение:

Нуэно ставить ";"  + переменная var

var p:integer, Нужно запускать програму и останавливать BEGIN , end. write писать в одной строке!