Даны числа х и у, вычислите число z равное х+у если х больше или равно н и 1-х+у в противном случае. завтра контрольная!

varx,y,z: integer; beginwrite('x= '); readln(x); write('y= '); readln(y); if x> = y then z: =x+y                  else z: =1-x+y; writeln('z= ',z); end

Робототе́хника (от робот и техника; англ. robotics — роботика, роботехник) — прикладная наука, занимающаяся разработкой автоматизированных технических систем и являющаяся важнейшей технической основой развития производства

Робототехника опирается на такие дисциплины, как электроника, механика, кибернетика, телемеханика, мехатроника, информатика, а также радиотехника и электротехника. Выделяют строительную, промышленную, бытовую, медицинскую, авиационную и экстремальную (военную, космическую, подводную) робототехнику.

проверено на паскаль авсprogram thestorm23; uses crt; var  sum,n,i,r: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   sum: =0;   writeln('введите количество чисел, не превышающее 100');   write('n = ');   readln(n);   if n> 100 then          writeln('это слишком много! ')       else           begin              writeln('вводите натуральные числа, не превышающие 300');               for i: =1 to n do                  begin                      write('ввод: ');                       readln (r);                       if r > 300 then                              begin                                  writeln ('вы ввели слишком большое число');                                   writeln ('это число не будет учтено');                               end                          else                              if r mod 6 = 0 then                                   sum: =sum+r;                   end;               writeln();               writeln('сумма чисел, кратных 6, равна ',sum);           end; end.