var a: integer;
begin
write('Введите двузначное число: ');
readln(a);
if (a mod 10 = 6) or (a div 10 = 6) then writeln('В его составе есть цифры кратные 6')
else writeln('В его составе нет цифр кратных 6')
end.
Ноутбук. принтер. ток. кот. ещё есть трояк и каеф, но это вряд ли подойдёт.
А:=4
b:=2
b:=а/2*b //в результате b = 4/2*2 = 4
a:=2*a+3*b
//в результате a = 2*4+ 3*4= 20
Ответ: 20