Запишите алгоритмическую конструкцию цикла с предусловием

#include <iostream>
using namespace std;
int main()
{ 
   for(int i = 10; i < 100; i++) 
  {     
          if(i/10 == 2*(i%10))   
              cout << i << " ";
   }   
           return 0;
}
Пример на С++ 
Но если надо на другом языке, то суть такова:
1)запускаешь цикл от 10 до 99(все двузначные числа) со счетчиком i например
2)внутри условие если i деленный нацело на 10(1 цифра этого числа )равен  удвоенному значению остатка от деления i на 10 ( последняя цифра числа в 2 раза больше 1 должна быть)
то на экран выводится это число i 

// PascalABC.NET 3.2, сборка 1344 от 22.11.2016
// Внимание! В других версиях работа не гарантируется!
begin
  var a:=ArrRandom(15,-20,20); a.Println;
  a:=a.Select(x->x.IsOdd?x*3:x div 2).ToArray; a.Println
end.

Пример
-1 -2 8 8 19 -12 13 -11 -7 -10 3 5 -18 4 3
-3 -1 4 4 57 -6 39 -33 -21 -5 9 15 -9 2 9

А вот так это же самое обычно делают в школах...
const
  n=15;
var
  a:array[1..n] of integer;
  i:integer;
begin
  Randomize;
  for i:=1 to n do begin
    a[i]:=Random(41)-20;
    Write(a[i],' ')
    end;
  Writeln;
  for i:=1 to n do begin
    if a[i] mod 2=0 then a[i]:=a[i] div 2
    else a[i]:=a[i]*3;
    Write(a[i],' ')
    end;
  Writeln
end.