Program z;
var n,a,b,s:integer;
begin
s:=0;
for n:=1 to 999 do
begin
a:=n mod 10;
b:=(n div 100) mod 10;
if a+b=7 then s:=s+1;
end;
writeln(s);
end.
uses crt;
type matr=array[1..20,1..20] of integer;
proc=procedure(m:matr;n:byte);
(b∧f)∨(c∧f)∨(f∧(¬a))∨(a∧(¬b)∧(¬c)∧(¬f))
Там нету такой маленькой верандочки и всё вроди...