Var
R1,R2,R3,R:real;
begin
read(R1,R2,R3);
R:=R1*R2/(R1+R2)+R2*R3/(R2+R3);
write(R:2:2);
end.
По предоставленному коду и своему опыту могу предположить что суммирует все четные элементы матрицы
Материнская плата
вроде так
Var x,y:integer;
begin
readln (x);
y:=2*Power(x,2) +3;
writeln (y);
end.