Function Compare(a,b:integer):char;
begin
if a<b then Compare:='<'
else if a=b then Compare:='='
else Compare:='>'
end;
var
x,y:integer;
begin
Write('Введите два числа через пробел: ');
Readln(x,y);
Writeln(x,Compare(x,y),y)
end.
<span>n = int(input('Input n '))
a = [0]*n
a[0] = int(input('Input a[0] '))
d = int(input('Input d '))
print(a[0],end=' ')
for i in range(1,n):
a[i]= a[i-1]+d
print(a[i],end=' ')
Тестовое решение:
Input n 10
Input a[0] 5
Input d 3
5 8 11 14 17 20 23 26 29 32
</span>
Вот так гораздо проще.
var s:string;
begin
readln(s);
writeln(length(s));
end.