Напишите простейшую в pascal (алгоритмы ветвления if then): ввести возраст человека (от 1 до 150 лет) и вывести его вместе с последующим словом "год", "года", "лет". например, я вводу "150" и вместе с числом выходит "лет" или я ввожу "21" и вместе с числом выходит "год"

Var b, c: integer; begin writeln('введите ваш возраст'); readln(b); if b < = 0 then writeln('вам 0 лет') else begin c : = b mod 100; if (c > = 10) and (c < = 20) then writeln('вам ', b, ' лет') else case (b mod 10) of 1: writeln('вам ', b, ' год'); 2..4: writeln('вам ', b, ' года'); 5..9, 0: writeln('вам ', b, ' лет') end; end; writeln('для выхода нажмите < enter> '); readln; end .

import tkinter as tk  

class Form(tk.Frame):

   def __init__(self, root):

       super().__init__(root)

       root.title('graphics')

       root.resizable(False, False)

       root.geometry('640x480')

       self.pack()

       self.master = root

       self.build()

       root.mainloop()

       

   def build(self):

       

       tk.Button(text = 'small', command = lambda:self.master.geometry('320x240')).place(x = 10, y =10)

       tk.Button(text = 'medium', command = lambda: self.master.geometry('640x480')).place(x = 10, y =40)

       tk.Button(text = 'large', command = lambda: self.master.geometry('1280x720')).place(x=10,y=70)

Form(tk.Tk())

Использована встроенная библиотека tkinter

Var   x,y,max,s,n: longint;   avg: real; begin   max: =4*(71-43*sqr(4));   n: =1; s: =max;   for x: =5 to 14 do   begin       inc(n); y: =x*(71-43*sqr(x)); s: =s+y;       if max< y then max: =y   end;   avg: =s/n;   writeln('максимальное значение: ',max);   writeln('среднее значение: ',avg: 0: 3) end. результат выполнения программы: максимальное значение: -2468 среднее значение: -42318.000