Паскаль выдает ошибку Встречено "read" а ожидалось ";" program PLОСНАD;
var А,В,С:real;
D:real;
Р:real;
S:real;
begin
writeln('Задайте стороны A,В,С:')
read(А,В,С);
Р:=(А + В + С)/2;
D:=A;
if D if D if P>D
then
begin
S:=SQRT(P*(P-A)*(P-B)*(P-C));
writeln{'ПЛОЩАДЬ:',S:2:1))
end

Const   a=5.1;   x=3.29; var   y,z: double; begin   y: =2*exp(4*x)+arctan(x/a);   z: =cos(x*sqr(x))+sqr(sin(x));   writeln('y=',y,', z=',z) end. результат выполнения программы: y=1038354.42291114, z=-0.472433980670957 const   m=6;   n=8; var   a: array[1..m,1..n] of double;   b: array[1..m*n] of double;   i,j,k,imax,imin: integer;   t: double; begin   // инициализация а и формирование в   randomize;   writeln('исходный массив a');   k: =0;   for i: =1 to m do begin       for j: =1 to n do begin           a[i,j]: =10*random-5; { случайное число на [-5; 5] }           write(a[i,j]: 8: 4);           t: =cos(a[i,j]);           if (t> =0) and (t< 0.5) then begin inc(k); b[k]: =a[i,j] end       end;       writeln   end;   // вывод сформированного массива в   writeln('исходный массив в');   for i: =1 to k do write(b[i]: 8: 4);   writeln;   // поиск максимума и минимума с последующим обменом их местами   imax: =1; imin: =1;   for i: =2 to k do       if b[i]< b[imin] then imin: =i       else           if b[i]> b[imax] then imax: =i;   t: =b[imax]; b[imax]: =b[imin]; b[imin]: =t;   // вывод результирующего массива в   writeln('результирующий массив в');   for i: =1 to k do write(b[i]: 8: 4);   writeln end. тестовое решение: исходный массив a   -1.6788 -0.7273 -3.4919  2.9903 -4.3249 -2.2230 -2.1157  0.9685   2.0515  4.6821  0.2794 -1.4624  4.9668 -3.5754 -3.4115 -0.5592   3.0535  1.1339  0.0992 -0.5307 -0.6266  2.2623  1.9578 -1.3175   -0.6154  3.6080  2.4223 -4.8354 -2.2978  3.8982 -2.2427  2.0410   -1.1019 -3.4703 -2.0104 -1.3044  0.7744  0.6897  3.1747  1.3257   -4.3942 -1.6707 -3.2494 -0.6551  3.4726 -0.2896  3.4154  1.9644 исходный массив в   -1.4624  4.9668  1.1339 -1.3175 -4.8354 -1.1019 -1.3044  1.3257 результирующий массив в   -1.4624 -4.8354  1.1339 -1.3175  4.9668 -1.1019 -1.3044  1.3257