Дана программа:
Program Primer;
Var
A,result : real;
Begin
Writeln('Введите значения переменной A');
Write('A=');
Readln(A);
Result := sqr((3+A)*5);
Writeln ('sqr((3+A)*5)', result:8:0);
Readln;
End.

Запусти Паскаль, введи данную программу, получи результат, если =1.

a = int(input())

A = list(map(int, input().split()))

m = [[0, 0, 0]]

for i in range(a):

   if A[i] != 5:

       n = []

       n.append(i + 1)

       x = 0

       while A[i] != 5:

           x += 5 - A[i]

           i += 1

           if i == a:

               break

       n.append(i)

       n.append(x)

       if n[2] > m[0][2]:

           m = [[0, 0, 0]]

           m[0] = n

       elif n[2] == m[0][2]:

           m.append(n)

for row in m:

   print(*row)

Объяснение:

a = int(input())

A = list(map(int, input().split()))

m = [[0, 0, 0]]

for i in range(a):

   if A[i] != 5:

       n = []

       n.append(i + 1)

       x = 0

       while A[i] != 5:

           x += 5 - A[i]

           i += 1

           if i == a:

               break

       n.append(i)

       n.append(x)

       if n[2] > m[0][2]:

           m = [[0, 0, 0]]

           m[0] = n

       elif n[2] == m[0][2]:

           m.append(n)

for row in m:

   print(*row)

1) 

var a:array [1..100] of integer;

n,i:integer;

begin

for i:=10 to 99 do begin

a[i]:=i;

if (a[i] mod n=0) then writeln(a[i]);

end;

end.

 2)

var a:array [1..100] of integer;

n,k,i,x,y,z: integer;

begin

readln(n,k);

for i:=n to k do begin

a[i]:=i;

x:=a[i] mod 10;

y:=a[i] div 10;

z:=y mod 10;

y:=y div 10;

if (x=y) or (x=z) or (y=z) then writeln(a[i]);

end;

end.

 3)

 var a,n,an,na: integer;

begin

readln(a,n);

if (a>0) and (b>0) then begin

an:=a*10+n;

na:=n*10+a else writeln('Введены неверные числа!');

end;

end.