Сведения команды из окружающего мира называется

d: /лето/фото/125.jpg

d: /документы/экзамен/информатика

program av;

var a,b,c,d,e,f: integer;

begin

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

readln(a,b,c);

if (a< b) and (a< c)

then a: =2*a*b*c

else 

if (b< a) and (b< c)

then   b: =2*a*b*c 

else  c: =2*a*b*c;

writeln(a,' первое число',b,'второе число',c' третье число') ;

end. 

random верный и не надо со мной спорить! там четко написано максимальное значение 45, минимальное значение 0-15=- 

на счет второго замечания, я то согласен, но разницы и тем более ошибки из-за которой стоит поднимать панику  

если человек. кторый пишет здесь такое простое задние не в состоянии самостоятельно его решить это значит одно, что если его решение будет сложным, значит это не он сам

program w; var a: array [1..20] of integer; i,j: integer;

begin

j: =0; for i: =1 to 20 do begina[i]: =random(60)-15; if a[i] mod 2 =0 then inc(j); end;

write(j); end.

освободить  грелку1) начало,2) взять чайник,3) вылить воду из грелки в чайник,4) остудить воду,5) вылить воду из чайника,6) поставить чайник на место,7) конец