Решите плиз задачу по паскалю срочно

Question

Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной максимальное из этих значений, а если равны, то присвоить переменным нулевые значения.

Наиль Садреев · Accepted Answer

var a,b:integer; 
begin 
read(a,b) ; 
if a = b then 
begin 
 a := 0; 
 b :=0 ; 
 //writeln(a,b) 
end 
else 
begin 
 a := (abs(a - b) + a + b) div 2; 
 b := a ; 
 //writeln(a,b) 
end; 
end.

Tatiana R · Answer

а самому никак ???простейшая математика для третьего класса

Дмитрий 111 · Answer

if a=b then begin 
 a:= 0; 
 b:=0; 
 end 
else 
if a> b then B:=a else a:=b;

Dmitri Kulakov · Answer

воспользуйтесь конструкцией if then - else