(* keisan.pas *)
program keisan;
var
    a,b,wa,sa,seki : Integer;
    syou : Real;
begin {Main}
    WriteLn;
    Write('数値Aを入力してください:');
    ReadLn(a);
    Write('数値Bを入力してください:');
    ReadLn(b);
 
    wa := a + b;
    sa := a - b;
    seki := a * b;
    syou := a / b;
 
    WriteLn('AとBの和は',wa);
    WriteLn('AとBの差は',sa);
    WriteLn('AとBの積は',seki);
    WriteLn('AとBの商は',syou);
end.
 

KCoga2Vpc2FuLnBhcyAqKQpwcm9ncmFtIGtlaXNhbjsKdmFyCiAgICBhLGIsd2Esc2Esc2VraSA6IEludGVnZXI7CiAgICBzeW91IDogUmVhbDsKYmVnaW4ge01haW59CiAgICBXcml0ZUxuOwogICAgV3JpdGUoJ+aVsOWApEHjgpLlhaXlipvjgZfjgabjgY/jgaDjgZXjgYQ6Jyk7CiAgICBSZWFkTG4oYSk7CiAgICBXcml0ZSgn5pWw5YCkQuOCkuWFpeWKm+OBl+OBpuOBj+OBoOOBleOBhDonKTsKICAgIFJlYWRMbihiKTsKCiAgICB3YSA6PSBhICsgYjsKICAgIHNhIDo9IGEgLSBiOwogICAgc2VraSA6PSBhICogYjsKICAgIHN5b3UgOj0gYSAvIGI7CgogICAgV3JpdGVMbignQeOBqELjga7lkozjga8nLHdhKTsKICAgIFdyaXRlTG4oJ0HjgahC44Gu5beu44GvJyxzYSk7CiAgICBXcml0ZUxuKCdB44GoQuOBruepjeOBrycsc2VraSk7CiAgICBXcml0ZUxuKCdB44GoQuOBruWVhuOBrycsc3lvdSk7CmVuZC4K

MTAKMg==

10
2