Скидка на 5% от величины - это то же, что 95% от величины.
Таким образом, нам надо:
var-блок ввести действительную переменную x
(тело программы)
прочитать переменную x
определить переменную x как 0.95 от уже существующего x
написать переменную x
конец
на любом диалекте Паскаля должно работать, по идее:
var x:real;
begin
read(x);
x:=0.95*x;
write(x);
end.
Если что-то не так, прошу написать мне для совместного разрешения ошибки/проблемы. :)