Что выведет на экран компьютер выполнив программу: a=5. if a^2> 15 then ? 67 else ? 12

Компьютер выведет ошибку компилятора, это сто а если просто результат алгоритма, то "? 67", так как 25> 15

Pascalabc.net 3.4.2, сборка 1843 от 24.10.2018 внимание! если программа не работает, обновите версию! 1)

begin

  var y : = readreal;

  var z : = y ** 10;

  var x : = z * (1 + z + sqr(z));

  x.println;

end.

пример

1.543

453619.091174671

2)

procedure per(a, b: real; var p: real);

begin

  p : = a * b

end;

begin

  var (x, y) : = readreal2;

  var периметр: real;

  per(x, y, периметр);

  периметр.println;

  var (n, m) : = readreal2;

  per(n, m, периметр);

  периметр.println;

  var (c, d) : = readreal2;

  per(c, d, периметр);

  периметр.println

end.

пример

6 13

78

3.5 8.032

28.112

14 23.002

322.028

const n=20;

var r: array[1..n] of integer;

i,a,b,c,s: integer;

begin

a: =0;

b: =0;

for i: =1 to n do  

  begin

  r[i]: =random(n)-random(n);

  write(r[i]: 3,'[',i,']');

  end;

writeln;

for i: =1 to n do

  begin

  if a< 1 then

    begin

    if r[i]< 0 then  

      begin

      b: =i;

      a: =a+1;

      end;

    end;

  end;

a: =0;

c: =0;

  for i: =n downto 1 do

  begin

    if a< 1 then

    begin

      if r[i]< 0 then

      begin

      c: =i;

      a: =a+1;

      end;

    end;

    end;

s: =0;

  for i: =1 to n do  

    s: =s+r[i];

writeln('номер первого отрицательного элемента - ',b);

writeln('номер последнего отрицательного элемента - ',c);

writeln('сумма элементов в массиве - ',s);

end.