Begin
end.
.
uses uses, uses, .NET, .
:
, begin/end.
var,
: ;
: := ;
: = ; // Delphi
:= ;
. :
var
a,b,c: integer;
d: real:= 3.7;
s:= 'PascalABC forever';
al:= new List<integer>;
p1:= 1;
.
const,
= ;
: = ;
:
const
Pi = 3.14;
Count = 10;
Name = 'Mike';
DigitsSet = ['0'..'9'];
Arr: array [1..5] of integer = (1,3,5,7,9);
Rec: record name: string; age: integer end = (name: ''; age: 23);
Arr2: array [1..2,1..2] of real = ((1,2),(3,4));
type,
= ;
,
type
arr10 = array [1..10] of integer;
myint = integer;
pinteger = ^integer;
IntFunc = function(x: integer): integer;
( , , , ) . , .
:
type
A = class
i: integer;
constructor Create(ii: integer);
begin
i:=ii;
end;
end;
, :
type
int = integer;
double = real;
label, , . :
label a1,l2,777777;
goto.
:
, , . , , , . .
|
|
|
.
:
procedure ( );
begin
end;
:
function ( ): ;
begin
end;
, begin / end, .
. , ";". , , . var const, , . , , .
, . , ( - ) . .
. , : .
:
procedure DoAdd(a,b: real; var res: real);
begin
res:= a + b;
end;
. :
begin
var x:= ReadInteger;
var y:= ReadInteger;
var res: integer;
DoAdd(x,y,res);
Print(res);
DoAdd(2*x,y,res);
Print(res);
end;
.
Result
Result, . . :
function Sum(a,b: real): real;
begin
Result:= a + b;
end;
function MinElement(a: array of real): real;
begin
Result:= real.MaxValue;
foreach var x in a do
if x < Result then
Result:= x;
end;
begin
var a:= Seq(1,5,3);
writeln(MinElement(a) + Sum(2,3));
end.
Result , .
