мне для 3 задачи по строкам про массив и по вот этой:
program ineyanaya_3;
var
a,b,c: integer;
p: real;
s: real;
begin
writeln ('################################################ #####');
writeln ('## Programma: lineyanaya_3 ##');
writeln ('## Naznachenie: zadanu storovu treygolnika, naiti ##');
writeln ('## ego ploshad po formyle gerona ##');
writeln ('## Pazpabotchuk: mazurenko pasha, gryppa TD-2 ##');
writeln ('## Data cozdaniya: 01.02.2010 ##');
writeln ('################################################ #####');
writeln;
writeln('storona: ');
readln(a);
writeln('storona: ');
readln(b);
writeln('storona: ');
readln(c);
p:=(a+b+c)/2;
readln;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
readln;
writeln('ploshadi: ',s:4:6);
readln;
writeln('vivod peremennoi: ',p:4:6);
readln;
end.
Помогите срочно прошу!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!