Vara,b,c,n:integer;
begin
read(a,b,c);
N:=(sqr(a)+sqr(b))*c;
writeln(n);
end.
<span>вот и все</span>
program HelloWorld;
var k:integer;
begin
writeln('Введи сторону');
readln(k);
writeln(k*k)
end.
Глубина цвета = log(65536) / log(2) бит = 16.0 бит
Объем памяти = 256 * 256 пикселей * 16.0 бит = 1048576.0 бит
1048576.0 бит = 131072.0 байт = 128.0 Кбайт = 0.125 Мбайт = 0.0001220703125 Гбайт = 1.1920928955078125e-07 Tбайт
1048576.0 бит = 1024.0 Кбит = 1.0 Мбит = 0.0009765625 Гбит = 9.5367431640625e-07 Tбит
Var n:Integer;
Begin
Read(n);
while (n>=0) do
begin
n:=n-1;
end;
Writeln('Finished');
<span>end.</span>