Помогите пожалуйста с информатикой

Программы, значит, написать... - Это можно. Только на каком языке программирования это нужно сделать? - Нет, программе-то без разницы, на каком языке программирования она написана, а вот учитель/преподаватель может спросить, с чего это вдруг программа написана на этом языке программирования, а не на том, который он(а) преподаёт.

Вот, например, на Паскале:

№4:

 Program P4; 

uses crt; 

var a, b, c: real; 

begin 

clrscr; 

writeln ('Введите значения сторон треугольника (только числа). При вводе дробных значений, целую часть от дробной отделяйте точкой, а не запятой.'); 

write ('a='); 

readln (a); 

write ('b='); 

readln (b); 

write ('c='); 

readln (c); 

writeln ('Ответ: S=', sqrt ((a+b+c)/2*((a+b+c)/2-a)*((a+b+c)/2-b)*((a+b+c)/2-c))); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end. 

Остальные - аналогично.

Задание 5
var xa, ya, xb, yb, xc, yc, a, b, c, p, S : real;
begin
Write (' xa = '); ReadLn(xa);
Write (' ya = '); ReadLn(ya);
Write (' xb = '); ReadLn(xa);
Write (' yb = '); ReadLn(yb);
Write (' xc = '); ReadLn(xc);
Write (' yc = '); ReadLn(yc);
a := sqrt (sqr(xb-xc) + sqr(yb - yc));
b := sqrt (sqr(xa-xc) + sqr(ya - yc));
c := sqrt (sqr(xa-xb) + sqr(ya - yb));
if ((a+b)<c) or ((a + c)<b) or ((b+c)<a) then
Writeln (' Треугольник не существует)') else
begin
p := (a + b + c) / 2;
S := sqrt (p*(p-a)*(p-b)*(p-c));
WriteLn (' Площадь треугольника S = ', S:6:3);
end;
end.