//правильно вот так:
Program al;
var c: real;
begin
c:=4.75;
writeln('c=',c);
end.
Var S:real;
Begin
Write('Введите сумму покупки: ');ReadLn(S);
Write('Сумма покупки с учётом скидки: ');
if S <= 1000 then WriteLn(S)
else if S > 10000 then WriteLn(S*0.8:0:2)
else WriteLn(S*0.9:0:2);
WriteLn('Без учёта скидки: ',S:0:2);
End.
<span> самый мощный процессор на 2016 год - AMD A10-7870K</span>