Uses System;
var x: real;
{ процедура функция }
function y( x: real): real;
var a,b,c: real;
begin
a:=2.8; b:= -0.3; c:=4;
if x<1.2 then Result:=a*Sqr(x)+b*x+c
else if x>1.2 then Result:=(a+b*x)/Sqrt(x*x+1)
else Result:=a/x+Sqrt(x*x+1);
end;
{ основная программа }
begin write('Задайте значение x ');
readln(x);
writeln('Значение функции y = ',y(x));
end.
<span>
</span>
110001.011100110011001100110011001100110011001100110011002
Const n=10;
Var a:array[1..n] of integer;
i,k,j:integer;
Begin
Randomize;
For i:=1 to n do
Begin
A[i]:=Random(10);
Write(a[i],' ');
end;
Writeln;
For i:=1 to n do
Begin
If a[i] mod 3=0 then
Write(a[i],' ');
end;
for i:=1 to n-1 do
for j:=1 to n-i do
begin
if (a[j] > a[j+1]) then
begin
k:= a[j];
a[j] := a[j+1];
a[j+1] := k;
end;
end;
writeln;
for i:=1 to n do
write(a[i],' ');
readln;
<span> end.</span>
Мне кажется сам только что попробовал. А) Shift + Ins