var
s:real;
begin
Write('Площадь окружности: '); Read(s);
Writeln('Радиус окружности равен ',sqrt(s/Pi):0:5)
end.
Const n=5;
var x,y:array[1..n] of integer;
i,j,a,s,k:integer;
begin
writeln('vvedite a=');
readln(a);
writeln('vvedite massiv x=');
for i:=1 to n do
read(x[i]);
writeln ('vvedite massiv y=');
for j:=1 to n do
read(y[j]);
k:=0;
s:=0;
for i:=1 to n do
for j:= 1 to n do
if x[i]*y[j]<=a then begin
k:=k+1;
s:=s+(x[i]*y[j]);
end;
writeln ('kolicestvo=',k,' summa=',s);
readln;
end.
var
a, b, c, m : integer;
begin
read (a, b, c);
m := a;
if b < m then m := b;
if c < m then m := c;
writeln (m);
end.
var
a : array [1..3] of integer;
i, m : integer;
begin
m := a[1];
for i := 2 to 3 do
if a[i] < m then m := a[i];
writeln (m);
end.
var
a, b, c : integer;
begin
read (a, b, c);
if (a <= b) and (a <= c) then writeln (a)
else if (b <= c) and (b <= a) then writeln (b)
else writeln (c);
end.
var
a: array[1..9999] of real;
i, n, b: integer;
begin
randomize;
Write('Введите число эементов массива:'); readln(n);
b:=0;
for i:=1 to n do
begin
a[i]:=-5+random(11);
writeln('a[', i, ']=', a[i]);
if a[i]=5 then b:=b+1;
end;
writeln('Кол-во элементов, равных 5: ', b);
end.