Приемы для ввода индексов: Верхний и нижний
Var
a,b,c:integer;
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
if a<b then writeln('min=',a) else begin
if b<c then writeln('min=',b) else writeln('min=',c);
end;
readln;
<span>end.</span>
#Python 3.X
n = int(input('n = '))
c2, c3 = 0, 0
for i in range(n):
x = int(input('Число {}: '.format(i + 1)))
if x % 2 == 0:
c2 += 1
elif x % 3 == 0:
c3 += 1
print('На 2 делится {} чисел, на 3 - {}.'.format(c2, c3))
var a,b:integer;
s:real;
begin
write('ВВедите 2 числа');
readln(a,b);
s:= (sqr(a)+sqr(b))/2;
writeln(s);
end.