Var a,b:integer;
begin
a:=12;
if a div 2>=6 then
b:=a mod 5
else b:=a div 3;
write (a-b);
end.
Вывод
10
===========================
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.