написать программу, которая разрешает вводить с клавиатуры двузначное число n. вывести на экран n^2, если число имеет две одинаковые цифры и n/2 у противоположном случае. условие окончания программы - ввод однозначного числа. сообщения про некорректность данных вывести красным цветом, а про окончание работы программы - зеленым.
TextColor(15);
End
else
if A div 10 = A mod 10 then WriteLn('N^2 = ',A*A)
else WriteLn('N/2 = ',N/2)
End;
Delay(1300);
Until A < 10;
TextColor(10);
Write('BbIXOD');ReadKey
End.