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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.