1 написать программу которая проверяет на кратность 5 произведение цифр двузначного числа вводимого с клавиатуры в ответе написать ДА или НЕТ.
2 написать программу которая удваивает наибольшую цифру двузначного целого числа результат на экран.
3 написать программу которая утраивает четные цифры двузначного числа результат на экран.

1.var a,a1,a2:integer;beginwrite('a = ');readln(a);a1:=a div 10;a2:=a mod 10;if a1*a2 mod 5 = 0 then writeln('Да') else writeln('Нет');end.Пример:a = 52Да2.var a,a1,a2:integer;beginwrite('a = ');readln(a);a1:=a div 10;a2:=a mod 10;if a1>a2 then writeln('2*',a1,' = ',2*a1) else writeln('2*',a2,' = ',2*a2);end.Пример:a = 932*9 = 183.var a,a1,a2:integer;beginwrite('a = ');readln(a);a1:=a div 10;a2:=a mod 10;if a1 mod 2 = 0 then writeln('3*',a1,' = ',3*a1);if a2 mod 2 = 0 then writeln('3*',a2,' = ',3*a2);end.Пример:a = 453*4 = 12