Код картинкой и результат его выполнения во вложениях.
А) Панель инструментов, рабочее поле, шкала времени, панель свойства
б) Инструмент используется для заливки всего текста или определённой области
Var
i,sum,k:integer;
mas: array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
mas[i]:=random(-10,10);
write(mas[i], ' ');
end;
writeln(' ');
for i:=1 to 10 do begin
if mas[i] mod 3 = 0 then begin
k:=k+1;
sum:=sum+mas[i];
end
end;
writeln('Числа кратные 3 встречаются ',k,' раз. И их сумма = ',sum);
end.
По идее это просто режим экрана, на какой он сейчас разрешении и частоте
Var a:string;
i,k:integer;
b:char;
begin
writeln('Введите строку: ');
readln(a);
k:=length(a);
for i:=1 to round(k/2) do
begin
b:=a[i];
a[i]:=a[k-i+1];
a[k-i+1]:=b;
end;
writeln;
writeln('Итоговая строка: ');
writeln(a:7);
end.<span>
</span>