Var a:array [1..100] of integer; <span>i:integer; </span> <span>begin </span> <span>randomize; </span> <span>for i:=1 to 100 do begin </span> <span>a[i]:=random(i); </span> <span>if (a[i]>=10) and (a[i]<=99) then write (a[i],' '); </span> <span>end; </span> <span>end.</span>
Var x, y: real; begin x := 5; writeln('x', #9, 'y'); while(x >= 0) do begin write(x:0:1); y := sqr(x) - 7*x; write(#9, y:0:2); x := x - 0.1; writeln; end; <span>end.</span>