Var x,y,z:integer;
begin
readln(x,y,z);
if x in [7..16] then write(x:4);
if y in [7..16] then write(y:4);
if z in [7..16] then write(z:4);
writeln; readln
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.