Var a, i: integer;
begin
read(a);
while(a <> 0) do
begin
for i := 1 to a mod 10 do write('*');
writeln();
a := a div 10;
end;
<span>end.</span>
<span>n = int(input())
max5 = <span>0
</span>for i in (1, n+1):
a = int(input())
if a % 5 == 0 and a > max5:
max5 = a
print(max5)
</span>
У квадрата все стороны равны, значит если умножить одну сторону на другую мы получим площадь
Такая ситуация выпадает не очень часто, поэтому запускай программу несколько раз подряд. Можно повысить вероятность, но это усожнит программу.
var
i, n: integer;
k: array[1..10]of integer;
begin
for i := 1 to 10 do
begin
k[i] := random(10)+1;
write(k[i],' ');
if k[i]=i then n:=n+1;
end;
writeln;
writeln('Число искомых элементов: ',n)
<span>end.</span>