Составьте алгоритм перемены местами значений величин а и в, например , заданы величины а=2 в=5, после работы алгоритма должны получиться результаты а=5 в=2 ,зарание

c=a

a=b

b=c

                                                                                                                                   

Program cube;
Var a, I: integer;
Begin
For I = 2 to 7 do
Begin
a:= power(I,3);
Writeln(I, , a);
End;
End.

1)program wk;
var mas:array [1..5]of integer;i:integer;
begin 
 for i:=1 to 5 do 
  mas[i]:=Random(121)-64; 
for i:=1 to 5 do 
 Writeln(mas[i])
end.
2) program wk;
var mas:array [1..8] of integer;i:integer;p:real;
begin
 p:=1; 
 for i:=1 to 8 do 
  begin 
   readln(mas[i]); 
   p:=p*mas[i]; 
  end;
 Writeln(p)
end.
3)program wk;
var mas:array [1..8] of integer;i:integer;p:real;
begin
 p:=1; 
 for i:=1 to 8 do 
  begin 
   readln(mas[i]); 
   if (i mod 2 <>0)then p:=p*mas[i]; 
  end;
 Writeln(p)
end.

График с прадставлениемизображения в виде совокупностей точек называется: растровой