В квадратной комнате шириной А и вышиной В есть окно и

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.