Может ошибок а не вирусов Зака чай себе антивирусник или redorganaizer для исправление ошибок
Самое нижнее, пятое короч
Var
a:array[1..1000] of extended;
i,n:longint;
begin
readln(n);
for i:=1 to n do read(a[i]);
writeln;
for i:=1 to n do writeln(a[i]:0:3);
end.
<span>
</span>
Var s,p,a,b,c:real;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Площадь треугольника: ',s);
<span>end.</span>
2,224 Мегабайта
1 Килобайт=0,001 Мегабайта