Кто подскажет как сложить две циклические суммы, что не так у меня при их сложении?

Hemul GM, программа запрашивала точку но не с ней не работает, ставил уже и запятую, и точку с запятой, но ничего не работает

Кто подскажет как сложить две циклические суммы, что не так у меня при их сложении?

Hemul GM, просто не особо шарю в паскале, поэтому не знаю как более правильнее

Кто подскажет как сложить две циклические суммы, что не так у меня при их сложении?

Hemul GM, у меня было так. но не работало
Readln(S1,S2);
Sum1(S1.S2);
Writeln(S3, S3:8:5);
Close(r);
End.

Кто подскажет как сложить две циклические суммы, что не так у меня при их сложении?

Hemul GM, у меня получается S1,S2 yjhvfkmyj c S3 проблемы
Program Func;
Type func=function(x:integer):real;
Var S1,S2,S3:real;
n1,m1,n2,m2:integer;
r:text;

{$F+}
Function f1(x:integer):real;
Begin
f1:=(x+2)/(x+5);
End;

Function f2(x:integer):real;
Begin
f2:=(5/(x*x)-ln(x));
End;
{$F-}

Procedure Sum(n,m:integer;f:func;Var S:real);
Var x:integer;
Begin
S:=0;
For x:=n to m do S:=S+f(x);
End;

Procedure Sum1;
Var S3:real;
Begin
S3:=0;
S3:=S1+S2;
End;

Begin
Assign(r,'res7-ind');Rewrite(r);
Writeln('n1,m1=');Readln(n1,m1);
Sum(n1,m1,f1,S1);
Writeln(r,'S1=',S1:8:5);
Writeln('n2,m2=');Readln(n2,m2);
Sum(n2,m2,f2,S2);
Writeln(r,'S2=',S2:8:5);
Readln(S1,S2);
Writeln(S3, S3:8:5);
Close(r);
End.

Кто подскажет как сложить две циклические суммы, что не так у меня при их сложении?

Hemul GM, уже это исправил но в выводном файле (res7-ind) ничего не вывело

Кто подскажет как сложить две циклические суммы, что не так у меня при их сложении?

Hemul GM не совсем понял что вы имеете ввиду?

Как сделать сортировку по полу человека?

Василий Банников, я дпже не знаю, что это за ошибка(лично у меня турбо паскаль, просто нету возможности в другом паскале проверить, мб там всё нормально)

Как сделать сортировку по полу человека?

Василий Банников, у меня по заданию тип сортировка, а ошибка заключается, что: нельзя использовать read и write для переменных этого типа.

Как сделать сортировку по полу человека?

Ну вот моя программа, я почти так же писал как вы написали, ошибка в 4 строке снизу там где про пол
Program Pascal;
type zap=record
fio:string[20];{FIO rabotnika}
pol:string[10];{POL rabotnika}
zp:real;{oklad}
st:integer;{premia}
sumvyp:real;{summa vyplat}
end;
var tab:array[1..10]of zap;
i,n:integer;
r:text;
Begin
assign(r,'res-6');rewrite(r);
writeln('Kol-vo rabotnikov-?');readln(n);
writeln('Vvedite spisok FIO');
writeln('Vvedite Pol rabotnika');
writeln('Oklad');
for i:=1 to n do begin
readln(tab[i].fio);
readln(tab[i].pol);
readln(tab[i].zp);
end;
Writeln(r,' FIO ',' POL ',' oklad ',' premia ',' summa vyplat');
for i:=1 to n do
with tab[i] do begin
if pol='m' then st:=100
else st:=0;
sumvyp:=zp+st;
writeln(r,fio,'':20-length(fio),r,pol,'':10-length(pol)zp:7:2,st:7,sumvyp:12:2);
end;
close(r);
END.

Как сделать сортировку по полу человека?

Ну вот моя программа, ошибка в 4 строке снизу там где про пол
Program Pascal;
type zap=record
fio:string[20];{FIO rabotnika}
pol:string[10];{POL rabotnika}
zp:real;{oklad}
st:integer;{premia}
sumvyp:real;{summa vyplat}
end;
var tab:array[1..10]of zap;
i,n:integer;
r:text;
Begin
assign(r,'res-6');rewrite(r);
writeln('Kol-vo rabotnikov-?');readln(n);
writeln('Vvedite spisok FIO');
writeln('Vvedite Pol rabotnika');
writeln('Oklad');
for i:=1 to n do begin
readln(tab[i].fio);
readln(tab[i].pol);
readln(tab[i].zp);
end;
Writeln(r,' FIO ',' POL ',' oklad ',' premia ',' summa vyplat');
for i:=1 to n do
with tab[i] do begin
if pol='m' then st:=100
else st:=0;
sumvyp:=zp+st;
writeln(r,fio,'':20-length(fio),r,pol,'':10-length(pol)zp:7:2,st:7,sumvyp:12:2);
end;
close(r);
END.