Складіть алгоритм знаходження більшого з трьох різних дійсних чисел x, y, z. Підберіть три різних значення змінних та виконайте алгоритм при цих значеннях

1 a)
var
  a: integer;

begin
  readln(a);
  if a mod 2 = 0 then
    println('da')
  else println('net');
end.

1 б)
var
  a: integer;

begin
  readln(a);
  if a mod 10 = 7 then
    println('da')
  else println('net');
end.

2 а
var
  a: integer;

begin
  readln(a);
  if (a div 10+a mod 10) mod 3 = 0 then
    println('da')
  else println('net');
end.

2 б
var
  n,a: integer;

begin
  writeln('Введите число');
  readln(n);
  writeln('Введите a');
  readln(a);
  if (n div 10+n mod 10) mod a = 0 then
    println('da')
  else println('net');
end.