Решите упражнение 12 в паскаль

Question

Решите упражнение 12 в паскаль

---

Answer 1

Program prog;
Uses crt;

var a,b: real;
    n: integer;
    
begin
clrscr;

write('Цена одной тетради = ');
readln(a);
write ('Цена одной обложки = ');
readln(b);
write ('Количество тетрадей = ');
readln(n);

writeln;
writeln('Стоимость покупки =  ', (a+b)*n);
end.