For < >:=< > To(DownTo) < > Do < >
. 1. to, , downto .
. , For . 1 :
Program Summa;
Var
I, N, S: Integer;
Begin
Write('N = ');
Readln(N);
S:=0;
For I:=1 To N Do
S:=S + I;
Writeln ('C = ', S)
End.
.
Case < > Of < > Else <> End;
< > - ,
< > - < >:< >.
.
Goto <>
, . , () , () .
52. .
7.0
, 7.0, :
( ),
,
( ).
PROGRAM | ; |
{$... } | ; |
USES | ; |
LABEL | ; |
CONST | ; |
TYPE | ; |
VAR | ; |
, , . : j (PROCEDURE) (FUNCTION). :
PROCEDURE (FUNCTION) | (); |
LABEL | ; |
CONST | ; |
TYPE | ; |
VAR | ; |
BEGIN | . |
END; | ; |
, , , , .
:
BEGIN { }
{ }
END.
.
|
|
. PROGRAM . , . , - . - . . PROGRAM . , , .
53. .
. . . . . .