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

program prog;
uses crt;

var n: integer;
    s1, s2: real;

begin
clrscr;

write('Количество тетрадей = ');
readln(n);
write('Цена тетради = ');
readln(s1);
write('Цена обложки = ');
readln(s2);
writeln;
writeln('Стоимость покупки = ', (s1+s2)*n);
end.