var a,S,P: real;
begin
writeln('Введите S квадарата: ');
readln(S);
a:=sqrt(S);
P:=a*4;
writeln('P = ',P);
end.
Program bi;
type tab=array[1..100,1..100] of integer;
var n,m,i,j,s:integer;
t:tab;
begin
readln(n);
readln(m);
for i:=1 to n do
for j:=1 to m do
readln(t[i][j]);
for i:=1 to n do
for j:=1 to m do
if(t[i][j] mod 2=0) then S:=S+t[i][j];
writeln('Mассив:');
for i:=1 to n do begin
writeln;
for j:=1 to m do
write(t[i][j],' ');
end;
writeln('сумма чётныч чисел ',S);
<span>end.</span>
256000/8=32000 байт/c
32000/1024=31.25 кбайт/с
2мин=120сек
31.25*120=3750кбайт
42 км 120м - 42120 м; 179км 500м - 179500м; 86 км 35 м - 86035м; 49 км - 49000 м; 5 км 6м - 5006м.
Рабочий стол, точно, окна может быть, панель задач