Напишите блок-схему, выводящую на экран все двузначные числа кратные 6 из

БЛОК-СХЕМА:
Начало
Условие (Блок ввода): Даны числа 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.