Напишите Pascal ABC калькулятор с паролем и 3-мя попытками ввода пороля 3в1.пожалуйста кто может оч прошу

напишите Pascal ABC калькулятор с паролем и 3-мя попытками ввода пороля 3в1.пожалуйста кто может оч прошу

  • на эту, пароль добавь сам
    program kalkul;
    uses crt;
    label 10,11;
    var chislo1,chislo2:integer;
    sim1,sim2,sim3,simv4,sim : char;
    otv:real;
    begin
    clrscr;
    write('vvesti pervoe chislo --> ');
    readln(chislo1);
    write('vvesti vtoroje chislo --> ');
    readln(chislo2);
    writeln(' MENU');
    writeln('----------------');
    writeln( ' + slojene ');
    writeln( ' - vichitanie ');
    writeln( ' * umnojenie ');
    writeln( ' / delenie ');
    writeln('----------------');
    write('vash vibor -->');
    10: gotoxy(15,10);
    readln(sim);
    if (sim='+') or (sim='-') or (sim='*') or(sim='/')
    then goto 11
    else begin writeln('neverno vveden znak'); goto 10; end;
    11: case sim of
    '+': begin otv:= chislo1 + chislo2; end;
    '-': begin otv:= chislo1 - chislo2; end;
    '*': begin otv:= chislo1 * chislo2; end;
    '/': begin otv:= chislo1 / chislo2; end;
    end;
    writeln;
    writeln(chislo1,' ',sim,' ',chislo2,' = ',otv);
    readln;
    end.