Автостоянка, ООО Альфа — отзыв работника «Аноним» о работе в компании

program DEL; var a, b: integer; result: real; begin writeln ('Программа вычисляет часнное двух целых чисел.'); Write ('Введите значение делимого a: '); read(a); Write ('Введите значение делимого b: '); read(b); if b=0 then writeln ('Неверные исходные данные: делитель - ноль') else begin result:=a/b; writeln ('Частые чисел ', a, 'u ', b, '= ', result:7:3); end end. } program CHET; var n: integer; begin Write ('Введите целое число: '); readln (n); Write ('число ', n,' - '); if n mod 2=0 then writeln ('чётное') else writeln ('нечётное'); end. program D_NED; var D: byte; begin Write ('Введите число D= '); readln (D); if D>31 then writeln ('ОИБКА ПРИ ВВОДЕ!!!') else case D mod 7 of 1: writeln ('ПОНЕДЕЛЬНИК'); 2: writeln ('ВТОРНИК'); 3: writeln ('СРЕДА'); 4: writeln ('ЧЕТВЕРГ'); 5: writeln ('ПЯТНИЦА'); 6: writeln ('СУБОТА'); 0: writeln ('ВОСКРЕСЕНЬИЕ'); end; end. где моя шаурма ?меня шаурмечник за шкрикрку и шампуром пиздил