В соревновании по футболу участвует 6 команд a b c d e f g через несколько недель команды уже сыграли друг с другом постройте граф по заданому условию

var

v,p,n,h,d: real;

begin

read(p,n,h,d);

v: =3*p*n/10/10/10*h*d*d;

end.

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.

(если сумма цифр числа делится на 3, то число делится на 3 нацело)

var a, s: integer;

begin

s: =0;

writeln ('введите число');

while a< > 0 do

begin

a: = a mod 10  

s: =s+a;

end;

if  s mod  3 = 0  then writeln ('делится') else

writeln ('не делится');

end.