Http://ideone.com/hRZOec вот ссылка на рабочую программу
uses crt;
var a,b,c,d,ch:integer; sr:real;
begin
readln(ch);
a:= ch div 1000;
b:= ( ch div 100) mod 10;
c:= ( ch div 10) mod 10;
d:=ch mod 10;
if ch mod 2 = 0 then
writeln((a+b+c+d)/4)
else
writeln(sqr(a),' ',sqr(b),' ',sqr(c),' ',sqr(d));
readln;
end.
Ну исходя из моего понимания всего сущего, это операционная система.
Если текст закодирован кодировкой <span>Windows-1251, то 1 символ = 1 байт
14000 символов = 14000 байт </span><span>≈ 13,67кБайт </span><span>≈ 0,0137 МБайт
</span>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
<span>uses crt;
var a,b,c,d: real;
procedure Plo (s: string; x,y,z: real);
var sq: real;
begin
if ((y+z-x)>0) and ((x+z-y)>0) and ((x+y-z)>0) then
begin
sq:=0.25*(sqrt((x+y+z)*(y+z-x)*(x+z-y)*(x+y-z)));
writeln('Площадь треугольника со сторонами ',s,'=',sq:0:3);
end else writeln('Треугольник со сторонами ',s,' не существует');
end;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
Plo ('a,b,c',a,b,c);
Plo ('a,b,d',a,b,d);
Plo ('a,c,d',a,c,d);
Plo ('b,c,d',b,c,d);
end</span>