Конечно, может и не заработать, но вроде всё в порядке
var a,b,c,d,e,f,g:real;
begin
readln(a,b);
c:=a+b;
d:=c*c;
e:=b*b*b;
f:=a-d-e;
g:=sin(a);
writeln(f/g);
readln;
end.
Блок схемы нарисовал бы, но не с компа сижу
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
const n = 10;
begin
var a:=ArrRandom(n,-10,10);
a.Println;
var b:=ArrRandom(n,-10,10);
b.Println;
var c:array[0..n-1] of integer;
for var i:=0 to 9 do c[i]:=a[i]+b[i];
c.println;
end.
Г) бит, байт, килобайт, мегабайт, гигабайт
<em>var a, b, c, n :integer; </em>
<em>procedure max(a,b:integer; var c :integer); </em>
<em>begin </em>
<em> if a>b then c:=a else c:=b; </em>
<em>end;</em>
<em>begin</em>
<em> read (a,b,c);</em>
<em> max(a,b,a);</em>
<em> max(a,c,a);</em>
<em> write (a);</em>
<span><em>end.</em></span>