подскажите пожалуйста как это написать в цикле?
card : ARRAY [1..5] OF INT:=1;
IF card[1]>card[2]
THEN card[2]:=card[1]*2;
END_IF;
IF card[2]>card[3]
THEN card[3]:=card[2]*2;
END_IF;
IF card[3]>card[4]
THEN card[4]:=card[3]*2;
END_IF;
IF card[4]>card[5]
THEN card[5]:=card[4]*2;
END_IF;