Все элементы массива a1...,a45,начиная с первого по порядку положительного элемента, уменьшить на 0.5, если значение элемента прeвышает 1 и увеличивать на 0.5 в противном случае.

var a,b,c,d: integer;

begin

  read(a,b,c,d);

  if (a*b*c*d mod 3 = 0) then

        writeln("pravda")

  else writeln("nepravda");

end.

трех сажаешь по углам ограждения , двух в центр 

var n,a,i: real; begin readln(n); i: =1; a: =0; while i< =n do begin a: =a+power(i,3); i: =i+1; end; writeln(a); end.

вот программа

ток-кот=кто это 954-459=495. бра+бар=раб это 495+459=954