Дана задача Маша и Миша собирали землянику. Маше
удалось сорвать X ягод, а Мише - Yягод.
Поскольку ягода была очень вкусной, то
ребята могли какую то часть ягод
съесть. По нашим подсчетам вместе они
съели Z ягод.
Требуется определить: сколько ягод
ребята собрали в результате
Напишите сколько каких компонентов
нужно будет для создания внешнего
вида формы (например 3 button, 2 edit, 5
label)​

1. Для цикла For

var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  for i := 1 to N do
    p:=p*x;
  writeln(x,' в степени ',n,' равно ',p );
end.

2. Для цикла While
var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  i:=1;
  while i<=n do begin
    p:=p*x;
    i:=i+1;
  end;
  writeln(x,' в степени ',n,' равно ',p );
end.

3. Для цикла Repeat

var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  i:=1;
  repeat
    p:=p*x;
    i:=i+1;
  until i>n;
  writeln(x,' в степени ',n,' равно ',p );
end.

Можно так

a = int(input())

if ((a // 100) + (a % 10)) / 2 == ((a // 10) % 10):

   print("Вы ввели красивое число")

elif ((a // 100) + (a // 10) % 10) / 2 == (a % 10):

   print("Вы ввели красивое число")

elif ((a % 10) + ((a // 10) % 10)) / 2 == (a // 100):

   print("Вы ввели красивое число")

else:

   print("Жаль, вы ввели обычное число")

НО ЕСЛИ ТЫ НЕ ПОНЯЛ КОД ТО:

answer1 = input()

if (int(answer1[0]) == int(answer1[1]) and int(answer1[0]) != int(answer1[2])):

   print("Жаль, вы ввели обычное число")

elif(int(answer1[0]) == int(answer1[1]) == int(answer1[2])):

   print("Вы ввели красивое число")

elif (answer1[0]) != int(answer1[1]) == int(answer1[2]):

   print("Жаль, вы ввели обычное число")

elif (answer1[0]) != int(answer1[1]) == int(answer1[2]):

   print("Жаль, вы ввели обычное число")

Эта только первая часть

Смотри коментарии