Zlomky +-*/

program zlomky;

var
c1,c2,j1,j2,vc,vj,d:integer;
o,z:char;

function nsd(a,b:integer):integer;
begin
repeat
if a>b then a:=(a-b) else b:=(b-a);
until a=b;
nsd:=a;
end;

begin
z:='+';

writeln('Zadejte zlomky a operaci.');
writeln('Prvni zlomek:');
write('Citatel: '); readln(c1); write('Jmenovatel: '); readln(j1);

writeln('Druhy zlomek:');
write('Citatel: '); readln(c2); write('Jmenovatel: '); readln(j2);

writeln('Operace: (+; -; *; /).'); readln(o);

case o of

'+': begin vc:=(c1 * j2) + (c2 * j1); vj:= (j1 * j2); end;

'-': begin vc:=(c1 * j2) - (c2 * j1); vj:= (j1 * j2); end;

'*': begin vc:=(c1 * c2); vj:=(j1 * j2); end;

'/': begin vc:=(c1 * j2); vj:=(j1 * c2) end;

end;

if vc<0 then begin vc:=abs(vc); z:='-';end;

d:=(nsd(vc,vj));

vc:=vc div d;
vj:= vj div d;

writeln('Vysledek je: ',z,vc,'/',vj);
readln()


end.