Var stkv,rkr:real;
begin
writeln('Введите сторону квадрата');
readln(stkv);
writeln('Введите радиус круга');
readln(rkr);
if rkr<stkv/2 then write('входит') else write('не входит')
<span>end.</span>
1 символ = 2 байта
1). 60*2=120 байт - на 1 строке
2). 120*40=4800 байт - на 1 странице
var a,b,c:integer;
begin
readln(a,b,c);
if((a=b)or(b=c)or(c=a)) then writeln(':)') else writeln(':(')
end.
1024000 а кбит будет 1024
600000/1024=585,94
ответ:585,9 секунд