N=256 I=8 бит(1 символ)
информационый объем равен 1024*8=8192 бита
Uses crt;
var p,a,b,c,xa,xb,xc,ya,yb,yc,ab,ac,bc,xab,yab,xbc,ybc,xac,yac:real;
s:real;
begin
writeln('Введите х координаты вершин а и b');
readln(xa,xb);
writeln('Введите y координаты вершин а и b');
readln(ya,yb);
xab:=xb-xa;
yab:=yb-ya;
ab:=sqrt(xab*xab+yab*yab);
writeln('Введите х координаты вершин а и с');
readln(xa,xc);
writeln('Введите y координаты вершин а и c');
readln(ya,yc);
xac:=xc-xa;
yac:=yc-ya;
ac:=sqrt(xac*xac+yac*yac);
writeln('Введите х координаты вершин b и с');
readln(xb,xc);
writeln('Введите y координаты вершин b и c');
readln(yb,yc);
xbc:=xc-xb;
yab:=yc-yb;
bc:=sqrt(xbc*xbc+ybc*ybc);
p:=(ab+bc+ac)/ 2;
s:=sqrt(p*(p-ab)*(p-bc)*(p-ac));
writeln(s);
end.
Program z;
var a: array [1..10] of integer;
k,i: integer;
begin
k:=0;
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10 do if a[i] mod 10 = 2 then k:=k+1;
writeln(k);
end.
Var a,b: integer;
begin
readln(a,b);
if a>b then writeln(a) else writeln(b);
end.
var n:integer;
begin
write('Введите 4-х значное число: ');
readln(n);
if n div 1000 = n mod 10 then write('Первая цифра равна последней: ',n div 1000,'=',n mod 10)
else if n div 1000 > n mod 10 then write('Первая цифра больше последней: ',n div 1000,'>',n mod 10)
else write('Первая цифра меньше последней: ',n div 1000,'<',n mod 10)
end.