Составьте программу , выводящию на экран все двухзначные числа , у которых первая цифра в два раза больше второй ,

Program pr1;
var i:integer;
begin
for i:=10 to 99 do
if (i div 10)/(i mod 10) = 2
then
writeln (i);
end.