БЛОК-СХЕМА:НачалоУсловие (Блок ввода): Даны числа i kПереход к следующему блокуБлок действия: Двузначное числоПереход к следующему блокуБлок логического условия: Число двузначное?Условие: Нет - конец процедурыТогдаДа - продолжение процедурыПереход к следующему блокуБлок действия: Двузначное число, кратное 6 Блок логического условия: Число двузначное и кратно 6?Условие: Нет - конец процедурыТогдаДа - продолжение процедурыПереход к следующему блокуБлок логического условия: Если Двузначное число кратное 6 и оно от 10 до ВБлок логического условия: Число двузначное, кратное 6 и оно от 10 до В?Условие: Нет - конец процедурыТогдаДа - продолжение процедурыПереход к следующему блокуВывод чиселПереход к следующему блокуКонец.PASCAL ABC:program chisla;uses crt;var i,k: integer;begin clrscr; k:=0; write(\'Чётные числа*:\'); for i:=25 to 145 do if (i mod 2=0) and (i mod 3=0) then begin write(i,\' \'); k:=k+1; end; write(\'Количество: \',k); readln;end.