Var
f1: text;
a,b: integer;
begin
assign (f1, '<file adress and name>');
read (f1, a,b);
close;
if a>b then writeln (a, '>', b)
else writeln (a, '<', b);
end.
Чтобы решать такие задачки начинай решение с конца. К искомому числу пробуй применять обратные операции (Не *2 +3, а /2 -3). Какие=то будут сразу отпадать, какие-то будут более выгодными на данном шаге.
1. 3 * 2 = 6
2. 6 * 2 = 12
3. 12 * 2 = 24
4. 24 + 3 = 27
5. 27 * 2 = 54
1. 3 + 3 = 6
2. 6 + 3 = 9
3. 9 * 2 = 18
4. 18 * 2 = 36
5. 36 * 2 = 72
6. 72 + 3 = 75
X<>10;
(x>0) and (y>0);
x>0;
(x>=0) and (x<=4);
(x>-5) and (x<=5);
x>=0;
x mod 2 = 0;
x mod 2 = 1;
x mod 3 = 0;
(x mod 2 = 0 ) and (x mod 3 =0);
x mod 5 <> 0;