Почему так происходит ? Лазарус

№1
#include <iostream>
using namespace std;
int main ()
{
setlocale (0,"russian");
float a,b,c,x;
cout << "Размеры кирпича: " << endl;
cout << "a=";
cin >> a;
cout << "b=";
cin >> b;
cout << "c=";
cin >> c;
cout << "Радиус круга: ";
cin >> x;
if ((a<x || b<x) && c<x)
cout << "Кирпич пройдёт.";
else
cout << "Кирпич не пройдёт.";
system ("PAUSE>>VOID");
return 0;
}
№4
#include <iostream>
using namespace std;
int main ()
{
setlocale (0,"russian");
float a,b,c;
cout << "Стороны треугольника: ";
cin >> a >> b >> c;
if (a<=0 || b<=0 || c<=0)
{
cout << "Неверно введены стороны (они не могут быть отрицательными)!";
}
else
{
if (c>a && c>b)
{
if (c==sqrt(a*a+b*b))
cout << "Треугольник прямоугольный.";
else 
cout << "Треугольник непрямоугольный";
}
else if (a>b && a>c)
{
if (a==sqrt(c*c+b*b))
cout << "Треугольник прямоугольный.";
else 
cout << "Треугольник непрямоугольный";
}
else
{
if (b==sqrt(c*c+a*a))
cout << "Треугольник прямоугольный.";
else 
cout << "Треугольник непрямоугольный.";
}
}
system ("PAUSE>>VOID");
return 0;
}

В турбо паскале, к сожалению, нет динамических массивов, по крайней мере, я в описаниях ничего не нашел, поэтому придется заранее задать N и M.
Пусть будет N = 10, M = 20. Для чисел меньше миллиона функция Prost работает за вполне приемлемое время.

PROGRAM SredProst;
var A: array [1..10, 1..20] of integer;
var i, k, p: integer, S: real;
FUNCTION Prost(n: integer): integer
var i: integer
BEGIN
Prost:=1;
{esli n delitsia na kakoe-to chislo ot 2 do kornya iz n, to n sostavnoe}
for i:=2 to sqrt(n) do if (n mod i = 0) then Prost:=0;
END;

BEGIN
uses crt; clrscr;
{Vvodim nachalniy massiv}
for i:=1 to 10 do
begin
for k:=1 to 20 do read (A[i,k]);
end;
S:=0; p:=0;
{Ischem prostye chisla, summiruem ih v S i schitaem kol-vo v p}
for i:=1 to 10 do
begin
for k:=1 to 20 do
begin
{Prost - eto funkcia poiska, prostoe chislo ili net}
if (Prost(A[i,k]) = 1) then
begin
S:=S+A[i,k];
p:=p+1;
end;
end;
end;
{Srednee - eto summa chisel, delennaya na ih kol-vo}
S:=S/p;
writeln ('Srednee vseh prostyh chisel ', S);
END.