Практические / prakt6 / калькулятор

Program calc;
var A,B,N: integer;
label 10;

BEGIN
 WRITELN ('1-СЛОЖЕНИЕ');
 WRITELN('2-ВЫЧИТАНИЕ');
 WRITELN('3-УМНОЖЕНИЕ');
 WRITELN('4-ДЕЛЕНИЕ');
 10:WRITELN('Введите два вещественных числа');
 READ (A,B);
 WRITELN('Введите номер операции');
 READ (N);
 CASE N OF
 1: WRITELN (A,'+',B,'=',A+B);
 2: WRITELN (A,'-',B,'=',A-B);
 3: WRITELN (A,'*',B,'=',A*B);
 4: WRITELN (A,'/',B,'=',A/B);
 END;
 goto 10;
 END.