Спо информатике в паскале программу написать надо

const n = 10;

var ar: array[1..n]of integer;

i,j,tmp: integer;

begin

randomize;

write('массив до сортировки: ');

for i: =1 to n do

begin

ar[i]: =random(101)-50;

write(ar[i], ' ');

end;

for i: =1 to n do

begin

for j: =i to n do

begin

if(ar[i] > ar[j])then

begin

tmp: =ar[i];

ar[i]: =ar[j];

ar[j]: =tmp;

end;

end;

end;

writeln();

write('массив после сортировки: ');

for i: =1 to n do

begin

write(ar[i], ' ');

end;

end.

используется язык pascal

program pr;

var

  mas: array[1..7] of integer;

  i: integer;

begin

writeln('вводим значения в массив');

  for i: =1 to 7 do readln (mas[i]);

writeln('выводим значения из массива');

  for i: =7 downto 1 do writeln(mas[i]);

readln;

end;

qbasic

screen 7

input x

input y

input c

s=x+y/2*c

print "x+y/2*c="; s

end