Написать программу вычисления стоимости покупки, состоящей из нескольких тетрадей и такого же количества обложек к ним. на паскале

program z_1;var n,k,s,m:integer;begin write('введите количество тетрадей'); read(n); write("введите стоимость тетрадей"); read(m); write('введите стоимость обложки); read(k); s:=n*m+n*k; write('стоимость покупки = ', s);end.