Набрать тест программы. Ошибок в программе нет.
Протестировать в среде Pascal.
programtest;
var
a: real;
begin
a:=random;
a:=a*100;
writeln('Число -', a);
writeln('Квадрат -', sqr(a));
writeln('Корень -', sqrt(a));
writeln('Целая часть -', int(a));
writeln('Дробная часть -', frac(a));
writeln('Округление решить.

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 писать в одной строке!