Помогите пожалуйста с Pascal

Question

Дано натуральное число трехзначное К. Если в него входит цифра 5, то число увеличить в два раз, иначе уменьшить на В (Число В вводится с клавиатуры).

Александра Леонтьева · Accepted Answer

примени эту программу к своей 
uses crt; 
var x,sum: integer; 
begin 
 clrscr; 
 readln(n); 
 sum := 0; 
 while n<>0 do 
 begin 
 sum:=sum + x mod 10; 
 n := n div 10; 
 end; 
 write('Сумма цифр = ',sum); 
 readln; 
end.

Ирина Лагутина · Answer

а мне никто не поможет? (((((((((((