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

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.