PascalОрганизовать меню: 1 вычислить значение y=sinx 2 y=cosx 3 выход

Pascal
Организовать меню: 1) вычислить значение y=sinx 2) y=cosx 3) выход

  • program D1KPxx18;
    uses crt;
    var
    x,y,a:real;
    label 1,2,3,4;
    begin
    4:writeln(‘Выберите что вам нужно: 1-синус числа, 2-косинус числа, 3-выход’);
    read(a);
    if a=1 then
    goto 1;
    if a=2 then
    goto 2;
    if a=3 then
    goto 3;
    1:begin
    writeln(‘Введите «х»‘);
    read(x);
    y:=sin(x);
    writeln(‘Синус «х» равен  ‘,y);
    writeln(‘Ещё? 1-No, 2-Yes’);
    read(a);
    if a=2 then goto 4
    else goto 3;
    end;
    2:begin
    writeln(‘Введите «х»‘);
    read(x);
    y:=cos(x);
    writeln(‘Косинус «х» равен ‘,y);
    writeln(‘Ещё? 1-No, 2-Yes’);
    read(a);
    if a=2 then goto 4
    else goto 3;
    end;
    3:writeln(‘Пока!’);
    end.

    Программа основана на метках, перемещая метки можно переходить к разным местам программы, тем самым использую их как меню… это если я правильно понял что именно значило:»Организовать меню»)))