Дано натуральное двузначное число .Если цифры одинаковы ,то увеличить заданное число в 2 раза ,если разные то большую заменить на 0. помогите решить задачу на паскале ((срочно

1

Ответы и объяснения

2013-03-01T08:45:45+04:00

var a,z,x:integer;
begin
read(a);
z:=a div 10;
x:=a mod 10;
if z=x then write(a*2) else begin
if z>x then z:=0 else x:=0;
writeln(z,x);
end;
end.