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

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.