Var
s:real;
i,n:longint;
begin
read(n);
for i:=1 to n do
s:=1/(2*i-1);
writeln(s);
end.
var a: array[1..10] of integer;
i,imin,min: integer;
begin
randomize;
write('массив: ');
for i:=1 to 10 do begin
a[i]:=random(201)-100;
write(a[i],' ');
end;
writeln;
min:=a[1];
imin:=1;
for i:=2 to 10 do
if(a[i]<min) then begin
min:=a[i];
imin:=i;
end;
write('наименьший элемент: a[',imin,']=',min);
end.
Шаблон, шагом, шайка, шалить, шалунья, шальной, шампур и шапочка
Для того что бы было проще. И его ввели как официальный международный.
Program n1;
var a,b: real;
begin
readln(a,b);
if a<b then a:=abs(a-b);
if b<a then b:=abs(a-b);
writeln(a,' ',b);
end.