составить алгоритм вычисления стоимости покупки , в которую входили 3 вида тетрадей, по разным ценам, а также стоимость этой покупки со скидкой 2 процента

var s,a:integer;i:byte;begins:=0;For i:=1 to 3 do beginreadln (a); // цена тетрадиs:=s+a; // прибавление к общей стоимости тетрадейend;writeln (s);end. смогли я Вам чем-нибудь помочь?