15 lines
148 B
ObjectPascal
15 lines
148 B
ObjectPascal
uses
|
|
u_adder_u1;
|
|
|
|
begin
|
|
init;
|
|
writeln(iget);
|
|
iprint;
|
|
writeln(sget);
|
|
sprint;
|
|
iprn(1);
|
|
sprn(2);
|
|
iprn(3);
|
|
sprn(4);
|
|
readln;
|
|
end. |