Delphi7. дано натуральное число n, действительное х. вычислить решите 2 любых на delphi 7

INP = input().split(' ')

data=[]

search_for=0

for i in range(int(INP[0])-1):

   data.append([])

   data[i]=(input().split(' '))

ask = input().split(' ')

for i in range(len(ask)):

   if int(ask[i]) == 1:

      print(1)

   else:

   # Search job

       for j in range(len(data)):

           if int(data[j][1]) == int(ask[i]):

               search_for = int(data[j][0])

               break

       # Count

       k=0

       for j in range(len(data)):

           if int(data[j][0]) == search_for:

               k+=1

       print(k)

Объяснение:

1) c e i

2) a2 b1 c1 d 2 e1

3) a)

program v7;

var v:integer;

begin

v:=7

end.

b)

program z30;

var z:integer;

begin

z:= z + 30;

end.

4) a)

program name;

begin

write("Тут пиши своё имя")

end.

b) program num4;

begin

write(400)

end.

5) a3 b2 c4 d1

6) хз надо исправлять ошибки или нет, но вот неправильные, которые вызовут ошибку

   a c d

7) 2

8) 3 5 6 11 9  4 1 8 7 10 2

9) var a:integer; b,c,x:real;

   begin

a:=7; b:=3; c:= a+b;

writeln('summa=',c);

c:= c/2; x:= a-c;

writeln('x=',x,' ','kvadrat=',x*x);

end.

На экран выйдет summa = 10.2

х = 1.9 kvadrat = 3.61