Выбери допустимые имена файлов.

|zima|**..ggb
science.ggb
*zima\.ggb
zima?.gif
science:??..ggb
zima.gif

var

a, b, x, s, c, t:real;

begin

writeln('Введите a');

readln(a);

writeln('Введите b');

readln(b);

writeln('Введите x');

readln(x);

if x<=a then

begin

s:=sin(x);

writeln ('Синус равен ', s);

end

else

writeln ('Синус вычислить нельзя, так как равенство не равно ', x, '<=', a);

if (a<x) and (x<b) then

begin

c:=cos(x);

writeln ('Косинус равен ', c);

end

else

writeln ('Косинус вычислить нельзя, так как равенство не равно ', a, '<', x, '<', b);

if x>=b then

begin

t:=tan(x);

writeln ('Косинус равен ', t);

end

else

writeln ('Косинус вычислить нельзя, так как равенство не равно ', x, '>=', b);

end.

//Pascal ABC.NET v3.1 сборка 1219

Const
 n=10;

 Var
 ar:array[1..n] of integer; 
sum,i:integer;
begin
 randomize;
 writeln('First array:');
 for i:=1 to n do
  begin
   ar[i]:=random(-50,50);
   write(ar[i]:4);
   sum:=sum+ar[i];
  end;
 writeln;
 writeln('Sum=',sum);
 writeln('Final array:');
 for i:=1 to n do
  begin
   ar[i]:=ar[i]*5;
   write(ar[i]:6);
  end;
end.

Пример работы программы:
First array:
  24  45  28  40 -48  -7  29  43 -23  18
Sum=149
Final array:
   120   225   140   200  -240   -35   145   215  -115    90