4, там через тире написано
истинность это верный/неверный?если так то верный
var
i, b:integer;
begin
write('b = ');
readln(b);
for i := 10 to b do
writeln(i, ' * ', i, ' = ', i*i);
readln;
end.
//вторая задача
var
a, b, i:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
for i := a + 1 to b - 1 do
write(i, ' ');
readln;
end.
Program n1;
Uses Crt;
var a:array[1..10] of integer;
s,i: integer;
begin
for i:=1 to 10 do begin
a[i]:=random(11)-5;
writeln(a[i]:4);
end;
s:=1;
for i:=1 to 10 do
if (a[i]<0) then s:=s*a[i];
writeln('Proizvedenie vseh otricat chisel: ', s);
<span>end.</span>