3. вывести все двузначные числа , у которых старшая сумма в два раза больше младшей

vari,qw,qw2:longint;beginqw:=0;qw2:=0;for i:=10 to 99 do beginqw:=i mod 10;qw2:=i div 10;if qw2=qw*2 then write(i,' ');end;end.