Program znanijacom;var a,b:integer; c:real;beginwrite('Ввидите стоимость книги = ');read(a);write('Ввидите количество книг = ');read(b);c:=a*b;if c>500 then beginc:=c-c/20;writeln('Стоимость покупки = ',c);endelsewriteln('Стоимость покупки = ',c);end.