var a:array [1..5] of integer;
s,i:integer;
BEGIN
for i := 1 to 5 do
begin
writeln('a[',i,']=');
read(a[i]);
s:=s + a[i]
end;
writeln('s=',s);
END.
фигурные скобки используются для инициализации функции main. без скобок программа не заработает
В PP не получится. Текст на видео нужно поместить в видеоредакторе (или в youtube.com/editor), а получившийся видеофайл с текстом заново вставить в презентацию.
Var a,a1,b: Real;
begin
writeln('Введите синус угла а, сторону a, сторону b');
readln(a,a1,b);
writeln('S=',(1/2)*a1*b*sin(a));
writeln('P=',a+b);
end.
Подсистема - колесо, рама , спицы, и т.д.
<span>Надсистема - дорога, гараж, улица, мир....</span>