Конспект на тему эргономика ​

Var n: integer; begin writeln('введите номер дня недели'); read(n); case n of 1:   begin   writeln('чтение');   writeln('труд');   writeln('музыка');   writeln('физ-ра');   end; 2:   begin   writeln('изо');   writeln('');   writeln('');   writeln('окружающий мир');   end; 3:   begin   writeln('');   writeln('краеведенье');   writeln('');   writeln('мхк');   end; 4:   begin   writeln('обж');   writeln('информатика и икт');   writeln('');   writeln('');   end; 5:   begin   writeln('биология');   writeln('');   writeln('обществознание');   writeln('');   end; 6:     begin   writeln('');   writeln('');   writeln('черчение');   end; 7:   begin   writeln('! ');   end; end; end. var a: integer; begin write('a = '); readln(a); if a mod 2 = 0 then writeln(a,' - чётное число') else writeln(a,' - нечётное число') end. var a: integer; begin writeln('введите трёхзначное число'); readln(a); writeln(a mod 10,(a div 10) mod 10,a div 100); end.