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

TestSamples/CompilationSamples/Assign2.pas

12 строк255 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// �������� ������� �������� ���� ���������� � �������������� �������
var x,y: real;

begin
  write('������� x,y: ');
  readln(x,y);
  var v: real; // ��������������� ����������
  v := x;
  x := y;
  y := v;
  writeln('����� �������� x,y: ',x,' ',y);
end.