Помогите с Паскалем.Надо составить программу.
1)У наибольшего из чисел x,y,z найти цифру младшего разряда(единиц) и остаток от его деления на 3.
2)Написать программу,которая по номеру дня недели выдаёт количество уроков на следующий день.

Пн,вт, ср,чт:6

Пт,СБ: 5

Спасибо большое :3

:3

2. var n: Integer;Beginreadln(n);write('Уроков ');case n of1: writeln('6');2: writeln('6');3: writeln('6');4: writeln('5');5: writeln('5');6: writeln('нет');7: writeln('6');end;End.

Согласно первому заданию надо сначала найти максимальный элементuses crt;var x,y,z,max:integer;Beginwriteln('Введите x y z');readln(x,y,z);if (x>y) and (x>z)then max:=xelseif (y>x) and (y>z)then max:=yelse max:=z;Writeln('max =',max);Writeln('Младший разряд =',max mod 10);Writeln('Остаток от деления на 3 =',(max mod 10) mod 3);readln;end.2)var n: Integer;Beginwriteln('Введите день недели');readln(n);write('Уроков ');case n of1-4: writeln('6');5,6: writeln('5');7: writeln('нет');end;End.