Программа есть, только ошибка выводится , разобраться) from tkinter import *

def qq():

a = EntryA.get()

a = int(a)

result1 = str1+a+a*a)/(2*a+a*a)+2-((1-a+a*a)/(2*a-a+a*a)))*(5-2*a*a))

result2 = str((4-a*a)/2)

EntryC.delete(0, END)

EntryC.insert(0, result1)

EntryD.delete(0, END)

EntryD.insert(0, result2)

root = Tk()

root.title('уравнения')

root.geometry('800х800')

can1 = Canvas(root)

can1.grid(row=0, sticky=W)

img1=PhotoImage(file='aaa1.png')

can1.create_image(160,60,image=img1)

can2 = Canvas(root)

can2.grid(row=1, sticky=W)

img2=PhotoImage(file='aaa2.png')

can2.create_image(60,50,image=img2)

Label(root, text='Введите a').grid(row=1, sticky=E)

EntryA = Entry(root, width=10,font='Arial 16')

EntryC = Entry(root, width=20,font='Arial 16')

EntryD = Entry(root, width=20,font='Arial 16')

EntryA.grid(row=1, column=1, sticky=E)

EntryC = Entry(root, columnspan=1)

EntryD = Entry(root, columanspan=1)

but = Button(root, text='Решить', command=qq)

but.grid(row=2, sticky=W)

root.mainloop()

var

  a: array[1..1000] of real;

  i, k, n, z: integer;

begin

  writeln('введите число n: ');

  readln(n);

  writeln('введите число z: ');

  readln(z);

  writeln('введите ',n,' действительных чисел (каждое с новой строки): ');

  for i : = 1 to n do

  begin

    readln(a[i]);

    if a[i] > z then

    begin

      a[i] : = z;

      k : = k + 1;

    end;

  end;

  writeln('количество замен: ', k);

end.

1)

var

  a: 100..999;

  a1, a2, a3: 0..9;   //а1 - сотни, а2 - десятки, а3 - единицы

begin

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a1, a3, a2);

end.

2)

var

  a: 100..999;

  a1, a2, a3: 0..9;

begin

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a2, a1, a3);

end.

3)

var

  a: 100..999;

  a1, a2, a3: 0..9;

begin 

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a3, a1, a2, a3);

end.

4)

var

  a: 1000..9999;

  a1, a2, a3, a4: 0..9;

begin

  writeln('введите натуральное четырехзначное число');

  readln(a);

  a1: = a div 1000;   //тысячи

  a2: = (a mod 1000) div 100;   //сотни

  a3: = (a mod 100) div 10;   //десятки

  a4: = a mod 10;   //единицы

  writeln('полученное число:   ', a4, a3, a2, a1);

end.

все остальное делается наподобие этого: просто в writeln меняешь местами цифры и все.