uses crt;
var a,b,v1,v2:string;
function ss(c:string):real;
var d:string; i:longint; s1,s2,vt:longint;
        begin
         d:=c;
         i:=1;
         v1:='';
         while d[i] in ['0'..'9']do
                begin
                 v1:=v1+d[i];
                 inc(i);
                end;
         delete(d,1,i-1);
         vt:=i;
         inc(i);
         v2:='';
         while d[i] in ['0'..'9']do
                begin
                 v2:=v2+d[i];
                 inc(i);
                end;
         delete(d,length(d),length(d)-1);
         val(v1,s1);
         val(v2,s2);
         if(d='+')then ss:=s1+s2;
         if(d='-')then ss:=s1-s2;
         if(d='*')then ss:=s1*s2;
         if(d='/')then ss:=s1/s2;
        end;
begin
 clrscr;
  write('nhap phep tinh thu nhat: '); readln(a);
  write('nhap phep tinh thu hai: '); readln(b);
  if(ss(a)>ss(b))then write('phep tinh co ket qua lon nhat la: ',a);
  if(ss(a)<ss(b))then write('phep tinh co ket qua lon nhat la: ',b);
  if(ss(a)=ss(b))then write('2 phep tinh co het qua bang nhau');
 readln;
end.

uses crt,sysutils;
var s1,s2:string;
function eval(pt:string):real;
var v1:integer;
    v2:integer;
    tt:string;
    tam:string;
    vt:integer;
    i:integer;
begin
    tam:='';
    for i:=1 to length(pt) do
    begin
        if (pt[i]<>'+') and (pt[i]<>'-') and (pt[i]<>'*') and (pt[i]<>'/') then
        begin
            tam:=tam+pt[i];
        end
        else
        begin
            v1:=strtoint(tam);
            vt:=i;
            tt:=pt[i];
            tam:='';
            break;
        end;
    end;
    for i:=vt+1 to length(pt) do
    begin
        tam:=tam+pt[i];
    end;
    v2:=strtoint(tam);
    if tt='+' then exit(v1+v2);
    if tt='-' then exit(v1-v2);
    if tt='*' then exit(v1*v2);
    if tt='/' then exit(v1/v2);
end;
begin
    clrscr;
    write('Phep tinh thu nhat: ');
    readln(s1);
    write('Phep tinh thu hai: ');
    readln(s2);
    write('Phep tinh co ket qua lon nhat la: ');
    if eval(s1)>eval(s2) then write(s1)
    else write(s2);
    readln;
end.

$\\$

`@Daoanhviet96`