Question

Программа в паскале! Помогите пожалуйста!
В Митиной библиотеке N книг по программированию, сборников фантастики - в 4 раза больше, чем книг по программированию, а сказок – на 12 меньше, чем сборников фантастики. Сколько всего книг в Митиной библиотеке?

Answer 1

uses crt;

var
n,f,p,s:integer;
begin
textbackground(15);
textcolor(1);
clrscr;
writeln('введите сколько книг по програмированию ');
readln(p);
f:=p*4;
s:=f-12;
n:=f+s+p;
writeln('всего ',n,' книг');
end.