I am trying to make a simple calculator, unfortunately, it isn't going so well.
Any ideas on how to make it simple?

``````if gamemode=1 then                                                                   {If gamemode 1 has been chosen}
begin
clrscr;
title;
writeln ('Welcome to Calculator');
writeln;
writeln ('To begin, press <Enter>');
clrscr;
title;
writeln ('Choose which symbol is needed');
writeln ('"+" "-" "*" "/"');

begin
clrscr;
title;
writeln ('Addition Problem (One time use only)');
writeln;
writeln ('Enter two numbers(with spaces) to solve out.(No decimal numbers)');
writeln;
clrscr;
title;
quit;
end;

if symbol='-' then      {subtraction}
begin
clrscr;
title;
writeln ('Subtraction Problem (One time use only)');
writeln;
writeln ('Enter two numbers(with spaces) to solve out.(No decimal numbers)');
subresult:=sub1-sub2;
writeln;
writeln ('The result is ',subresult);
clrscr;
title;
quit;
end;

if symbol='*' then      {multiplication}
begin
clrscr;
title;
writeln ('Multiplication Problem (One time use only)');
writeln;
writeln ('Enter two numbers(space after one number) to solve out.(No decimal numbers or symbols)');
multresult:=mult1*mult2;
writeln;
writeln ('The result is ',multresult);
clrscr;
title;
quit;
end;

if symbol='/' then     {division}
begin
clrscr;
title;
writeln ('Division Problem (One time use only)');
writeln;
writeln ('Enter two numbers(with spaces) to solve out.(No decimal numbers)');
if div2<=0 then
begin
clrscr;
title;
writeln ('Syntax Error, Denominator can not be less than 0');
quit;
end;
divresult:=div1 div div2;
writeln;
writeln ('The result is ',divresult:1:5);
clrscr;
title;
quit;
end;
end
``````