Площадь треугольника вычисляется по формуле Герона:
var a,b,c,s,p:real;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('s=',s:6:2);
end.
Для длин сторон а=5, b=5, с=6.
a=5
b=5
c=6
s= 12.00
Для длин сторон а=17, b=65, с=80.
a=17
b=65
c=80
s=288.00
Вот так вот) там во втором "ввод a, b, c" лучше)
// Написать программу: Гречу, массой х г, рассыпают по пакетам: по а г в каждый.
//Пакетов может быть неограниченное количество. Сколько гречи будет в
//последнем заполненном пакете?
var x,a : longword;
begin
writeln ('Введите общую массу гречи, в граммах');
readln (x);
writeln ('Введите массу насыпаемой в пакет гречи, в граммах');
readln (a);
writeln ('полных пакетов будет ',(x div a));
if (x mod a)=0 then writeln ('В последнем насыпанном пакете будет ',a,' грамм гречи')
else writeln ('В последнем насыпанном пакете будет ',(x mod a),' грамм гречи');
<span>end.</span>
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(50,1,999);
a.Take(40).Println;
a.Skip(40).Println(NewLine)
end.
<u><em>Тестовое решение</em></u>
164 67 626 431 758 259 924 741 796 179 989 880 813 112 832 970 662 970 558 5 833 343 694 379 297 192 565 147 611 302 284 925 784 98 61 895 907 190 208 679
55
195
206
597
664
762
201
452
965
298