Код
program p_2;
var
half1,half2,buf:string;
a1,a2:integer;
b1,b2:integer;
t1,t2,code:integer;
begin
write('Введите первую дробь:');
readln(half1);
write('Введите вторую дробь:');
readln(half2);
t1:=length(half1);
t2:=pos('/',half1);
buf:=copy(half1,1,(t2-1));
val(buf,a1,code);
buf:=copy(half1,t2,t1);
val(buf,a2,code);
t1:=length(half2);
t2:=pos('/',half2);
buf:=copy(half2,1,(t2-1));
val(buf,b1,code);
buf:=copy(half2,t2,t1);
val(buf,b2,code);
t2:=a2*b2;
a1:=a1*b2;
b1:=b1*a2;
t1:=a1+b1;
writeln('Дробь: ',t1/,'/',t2);
end.
var
half1,half2,buf:string;
a1,a2:integer;
b1,b2:integer;
t1,t2,code:integer;
begin
write('Введите первую дробь:');
readln(half1);
write('Введите вторую дробь:');
readln(half2);
t1:=length(half1);
t2:=pos('/',half1);
buf:=copy(half1,1,(t2-1));
val(buf,a1,code);
buf:=copy(half1,t2,t1);
val(buf,a2,code);
t1:=length(half2);
t2:=pos('/',half2);
buf:=copy(half2,1,(t2-1));
val(buf,b1,code);
buf:=copy(half2,t2,t1);
val(buf,b2,code);
t2:=a2*b2;
a1:=a1*b2;
b1:=b1*a2;
t1:=a1+b1;
writeln('Дробь: ',t1/,'/',t2);
end.