Число 8¹⁰=1000²
в восьмиразрядном представлении имеет вид:​

  var a,b,c,d: integer;

begin

writeln ('vvedite a');

  read(a);

writeln ('vvedite b');

  read(b);

writeln ('vvedite c');

  read(c);

writeln ('vvedite d');

  read(d);

if (a> b) and (a> c) and (a> d)  then writeln('samoe bolshoe chislo - a')

  else writeln('a ne samoe bolshoe');

end.

периметр треугольника равняется сумме длин всех трех его сторон. он вычисляется по формуле p=a+b+c, в которой a, b и c – это стороны фигуры.

var a: array[1..100] of integer;

s,i: integer ;

sr: real;

begin

  {vvod massiva a}

    for i: = 1 to 100 do

        sr: =sr+a[i];

    sr: = sr/100;

    for i: = 1 to 100 do

        if a[i]> sr then

          s: =s+1;

    writeln(s);

end.

var i: integer; begin  for i: = 2 to 14 do      writeln(i*i); end.