Студенты-Программеры

pRogRam Zdn_1;
Uses crt;
Const n=10;
Var massiv: array [1..n] of byte;
Procedure Add(var mas: array of byte); (** zapolnenie massiva **)
Var i:byte;
Begin
Randomize;
For i:=1 to n do mas[i]:=random(255);
End;

Procedure Shw(var mas: array of byte); (** vivod massiva **)
Var i:byte;
Begin
For i:=1 to n do writeln(’ Mas[',i,'] = ‘,mas[i]);
End;

BEGIN
ClrScr;Add(massiv);Shw(massiv);Readkey;
END.

set term !!;

create procedure p1 (a int, b int)

returns (aa int, bb int)

as begin

for select a_p, b_p from tab1

where a_p=:a and b-p=:b

into : aa, : bb

do suspend

end !!

set term; !!

create table custcity (

city char,

snum integer

)

create view citymatch (custcity, salecity)

as select distinct a.city, b.city

from customers a, salespeople b)

create view londoncust

as select * from costomers

create table name (

e1 varchar,

e2 char,

select e1*3 from name

where e2=text