Написать программу в паскале реализующуу работу меню содержащих…

Program menu; uses crt; var m, i: integer; n, z, x, b: longint; begin Writeln ('Выберете пункт меню: '); Writeln ('[1]Вычисление суммы цыфр числа N'); Writeln ('[2]Вывод на экран таблицы квадратов первого десятка'); Writeln ('[3]Дано число N. Определить его четность'); Writeln ('[4]Выход'); read (m); case m of 1: begin clrscr; writeln ('Введите число N: '); read (n); x: =10; z: =n mod x; while n div x > 0 do begin b: =x; x: =x*10; z: =z+n mod x div b; end; Writeln ('Ответ: ', z); end; 2: begin clrscr; for i: =1 to 10 do begin writeln ('Квадрат ', i, '=', sqr (i); end; end; 3: begin clrscr; writeln ('Введите число N: '); read (n); if (n mod 2)=0 then writeln ('Число ', n, ' четное.') else writeln ('Число ', n, ' не четное.'); end; 4: exit; end; end.