20 баллов, срочно, помогите пожалуйста. Заданы два числа x и y, меньшее из двух заменить...

Question

20 баллов, срочно, помогите пожалуйста. Заданы два числа x и y, меньшее из двух заменить на ноль, большее из них заменить произведением. Паскаль

Answer 1

Var a, b : integer; Begin Write('Введите число а: '); Readln(a); Write('Введите число b: '); Readln(b); If a < b then begin A := 0; B := a * b; Write('a = ', a, 'b = ', b); End Else Begin B := 0; A := a * b; Write('a = ', a, 'b = ', b); End; End.