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

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