Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты. · если второе и четвертое числа отрицательны, то выведите их произведение. · если первое и третье числа больше
10, то выведите все четыре числа, увеличив их в десять раз · если выполняются одновременно два перечисленных выше условия, то выведите эти четыре числа без изменения. · иначе, выведите все четыре числа, уменьшив их в
десять раз. составьте соответствующие отладочные примеры и проверьте работу каждой программы.

program av;

var a,b,c,d,e,f: integer;

begin

writeln('введите числа ');

readln(a,b,c,d);

if (b< 0) and   (d< 0)

then begin e: =b*d; writeln(e); end;

if (a> 10) and   (c> 10)

then writeln(a,'0 ',b,'0 ',c,'0 ',d'0 ');

if   (b< 0) and   (d< 0) and  (a> 10) and   (c> 10)

then writeln(a,' ',b,' ',c,' ',d,' ') 

else begin

a: =a/10;

  b: =b/10;  

  c: =c/10;  

  d: =d/10;  

writeln  (a,' ',b,' ',c,' ',d,' ');

end;

end. 

program mine;   uses crt;   var a1,a2,a3: real; a4: integer;   begin  clrscr;   writeln(' vvedite 4 chisla -> ');   readln(a1,a2,a3,a4);   if (a1< 30)and(a2< 30)and(a3< 30)and(a4< 30)and(not odd(a4))  then writeln(a1: 7: 2,a2: 7: 2,a3: 7: 2,a4: 7) else  if (a1< 30)and(a2< 30)and(a3< 30)and(a4< 30)  then writeln(a1*2: 7: 2,a2*2: 7: 2,a3*2: 7: 2,a4*2: 7) else  if not odd(a4) then writeln(a1*a2/10: 0: 2)  else writeln(a1-a4);   readkey;   end.

у дальних планет больше спутников по причине их большей массы. чем больше масса планеты - тем большую массу она притягивает и захватывает.

program xxx;   var a,b, c : integer; begin

  writeln('введите 3 числа-');

  read(a,b,c);   if a> =0 then a: = sqr(a);

  if b> =0 then b: = sqr(b);

  if c> =0 then c: = sqr(c);

  writeln('ответ: ');

  write(a, b, c);

  readlnend.