8 lines
103 B
OpenEdge ABL
8 lines
103 B
OpenEdge ABL
|
program synerr2(input,outpu);
|
||
|
|
integer a(10)
|
||
|
|
begin
|
||
|
|
read(b);
|
||
|
|
for c := 1 to 10 do
|
||
|
|
a(c) := b * c;
|
||
|
|
end.
|