Анна водопадами озадачился разводами лишаться
var
A,B,C,D,L,S: integer
F,K,Q:integer;
begin
writeln("введите A");
readln(A);
writeln("введитеB");
readln(B);
writeln("введитеC");
readln(C);
writeln("введитеD");
readln(D);
writeln("введите M");
readln(M);
writeln("введите N");
readln(N);
writeln("введите L");
readln(L);
writeln("введите S");
readln(S);
F:=A*4 *B - (C*D+M*N);
K:=0,01L*S;
Q:=F/K;
writeln("кол-во рулонов = ",Q );
end.
819 = 1100110011, -278 = -100010110