Program qwe;
Uses crt;
var x:real;
begin
clrscr;
writeln('Vvedite x');
Readln(x);
if sqr(x)-4>0 then writeln('Da') else writeln('Net');
Readkey;
<span>end.</span>
Var ar:array[1..10] of integer;
i:integer;
begin;
randomize;
writeln('Array');
for i:=1 to 10 do
begin;
ar[i]:=random(1,10);
write(ar[i]:4);
end;
writeln;
writeln('Result:');
for i:=1 to 10 do
if ar[i] mod 2=0 then write(i:4);
<span>end.</span>
Лінійні, розгалуження, повторення.
Ответ:MS PowerPoint, Mozilla Firefox, Grins, notepad++, inkscape,
Объяснение: