1)
var
a1, a2, a3, max: integer;
begin
write ('Введите три числа: ');
readln (a1, a2, a3);
if a1 >= a2 then
max := a1
else
max := a2;
if a3 > max then
max := a3;
writeln ('Максимальное из них: ', max);
readln
end.
2)
var
n: integer;
begin
repeat
writeln('Введите номер месяца [1..12]');
readln(n);
until n in [1..12];
case n of
1: writeln('Январь');
2: writeln('Февраль');
3: writeln('Март');
4: writeln('Апрель');
5: writeln('Май');
6: writeln('Июнь');
7: writeln('Июль');
8: writeln('Август');
9: writeln('Сентябрь');
10: writeln('Октябрь');
11: writeln('Ноябрь');
12: writeln('Декабрь');
end;
end.
3)
var
n: word;
left, right: byte;
begin
readln(n);
right := n mod 10;
n := n div 10;
right := right + n mod 10;
n := n div 10;
left := n mod 10;
n := n div 10;
left := left + n;
writeln(left = right)
end.