Напишите программу, в результате выполнения которой первое введённое число уменьшается в три раза, если оно больше, чем третье, а третье становится разностью третьего и второго, если оно больше второго.

var  number1, number2, number3 : real;begin  write('Первое число: ');  readln(number1);  write('Второе число: ');  readln(number2);  write('Третье число: ');  readln(number3);  if (number1 > number3) then number1 := number1 / 3;  if (number3 > number2) then number3 := number3 - number2;  writeln('Вывод');  writeln('Первое число: ', number1);  writeln('Второе число: ', number2);  writeln('Третье число: ', number3);end.