контрольная по информатике

var a,b,c: integer;

begin

clrscr;

readln(a,b,c);

          if a = b then writeln(c);

          if b = c then writeln(a);

          if a = c then writeln(b);

readkey;

end. 

var x: real; begin  read(x);   writeln(round(x)); end.

a: =x+y/x+1-xy-12/34+x вопрос в том, в чем собственно проблема.? просто берете переменную и присваеваете ей значение .уравнение будет точно такоеже.

program num1; uses crt; var i : integer; beginclrscr; for i: =20 to 40 doif (i mod 2) = 0 then write(i,' '); end.