Ответы и объяснения

2014-03-26T11:35:08+04:00
Var a:integer;
b:boolean;
begin
readln(a);
if a mod 10 + a div 10 = 7 then b:=true;
writeln(b);
end.