, . - :
function < > (< . >):< >;
begin
end;
:
Procedure < > (< >);
begin
end;
inc ( ), chislo.inc.
{$I < >} . inc , .
(, , , , ..), . , . . (system, crt, graph .).
:
Unit , ( ) , . 8 .
interface , . .
implementation , . , , , , .., . , interface, , Implementation, . (.. ), .
, ( ) , , .
:
1. , .. .
2. .
3. , .
<>. PAS .
Uses, . . , .
Procedure.
Var a:array[1..9] of integer; I,s:integer;
Begin
S:=0;
For i:1 to 9 do begin
A[i]:=strtoint(StringGrid1.cells[i-1,0]);
If a[i] mod 2 = 0 then s:=s+a[i];end;
Label1.caption:=inttostr(s);
End;