Первая:
<span>var </span>
<span>q,a,b:real; </span>
<span>begin </span>
<span>read(a,b); </span>
<span>q:=sqrt(a*a+b*b); </span>
<span>writeln(q:2:2); </span>
<span>end. </span>
<span>Вторая: </span>
<span>var </span>
<span>a:integer; </span>
<span>begin </span>
<span>read(a); </span>
<span>writeln('The next number for the numder ',a,' is ',a+1); </span>
<span>write('The previaus number for the numder ',a,' is ',a-1); </span>
<span>end. </span>
4 * 48 * 64 * 8 бит = 4 * 48 * 64 байт = 12 кбайт