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.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.