#include <iostream>
#include <vector>
int main()
{
std::vector<double> a(6);
for(int i = 0 ; i!= 6 ; ++i)
{
std::cin>>a[i];
}
double mult = 1;
for(auto b:a)
{
mult*=b;
}
std::cout<<mult;
double min = a[0];
double max = a[0];
for(auto b : a)
{
if(b>max)
{
max = b;
}
if(b<min)
{
min = b;
}
}
std::cout<<max - min;
return 0;
}
//PascalABC.NET 3.0
function check(x: integer): boolean;
begin
var tmp := x * x;
Result := true;
repeat
if tmp mod 10 <> x mod 10 then Result := false;
tmp := tmp div 10;
x := x div 10;
until (x = 0) or not(Result);
end;
begin
var n := ReadInteger('Введите N:');
Range(1, n).Where(x -> check(x)).Select(x -> x.ToString + '*' + x.ToString + '=' + (x * x).ToString).Println(NewLine)
e<span>nd.</span>
Var a:array[1..10] of integer;
b:array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do
begin;
readln(a[i]);
if a[i]<0 then
begin;
k+=1;
b[k]:=i;
end;
end;
writeln('Индексы отрицательных');
for i:=1 to k do
writeln(b[i]);
writeln('Всего:',k);
end.<span> </span>