PROGRAM Z13;
const n=6; m=7;
var a: array[1..n, 1..m] of integer;
i,j,k:integer;
begin
k:=2;
for j:=1 to m do
begin
for i:=1 to n do a[i,j]:=k;
k:=k+3;
end;
for j:=1 to m do
begin
for i:=1 to n do
write(a[i,j]:4);
writeln;
end;
end.<span>
</span>
#include <iostream>
using namespace std;
int main()
{
int n;
cin>>n;
cout<<"20"<<n%100<<"/"<<n/10000%100<<"/"<<n/10000;
return 0;
}<span>
</span>
DIM x(20) AS INTEGER
RESTORE
FOR i = 1 TO 20
READ x(i)
NEXT
s = 0
FOR i = 1 TO 20
IF x(i) > 0 THEN
s = s + x(i)
END IF
NEXT
PRINT "s="; s
END
DATA -3,9,-8,6,6,5,0,-7,9,18
DATA 4,-7,9,7,5,-9,-6,6,3,8