n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/Assign1.pas

12 строк241 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ������������� ��������������� ����������
var r: real;

begin
  write('������� r: ');
  readln(r);
  var r2,r4,r8: real; // ��������������� ����������
  r2 := r * r;
  r4 := r2 * r2;
  r8 := r4 * r4;
  writeln(r,' � ������� 8 = ',r8);
end.