напишите программу для вычисления стшимости покупки со скидкой

Ответы:

var zena:integer,

begin

readln(zena),

if (zena &lt, 500) then writeln(zena*0,97),

if (zena &gt, 500) and (zena &lt, 1000) then writeln(zena*0,95),

end.