Procedure TFrmCalc.BtnPlusClick(Sender: TObject);

одновременно в течение 6 минут. Ответ округлите по математическим правилам с точностью до целых чисел. В ответе введите только число без единиц измерения

(уменьшение информации) в окружающем мире.2.Приведите примеры перехода от хаоса к порядку (увеличение информации) в окружающем мире.3.Каковы должны быть свойства информации,представленной в форме сообщений.4.Каковы должны быть свойства информации,прдставленные в форме знаний.5.Приведте примеры систем управлений техническими устройствами.6.Приведите примеры информационных сообщений,которые несут 1бит информаци

ClrScr;
k:=0;
for i:=1 to n do begin
write(введите число'); readln(n);
end;
for i:=1 to n do begin
if m[i]>m[1] then k:=k+1;
end;
write(' чисел превосходящих первое число- ',k); у меня всегда выводит 0

Определить, попадает ли число Х в интервалы от –14 до 2 и от 5 до 10.
Напечатать модуль этого числа в случае положительного ответа.

-если первая дата больше второй.паскаль.тема записи
в чем ошибка??
type date = record day: 1..31; month: 1..12; year: integer ; end;
var a: date := (day: 1; month: 4; year: 2015); b: date := (day: 1; month: 4; year: 2014); c:integer;

procedure OutDate(d: date);begin with d do writeln(day, '.', month, '.', year);end;
function Srawn(x, y: date): -1..1;beginif x.year > y.year then writeln( 1) else writeln(-1) ; if x.year = y.year then if x.month > y.month then writeln(1) else writeln(-1); if x.year = y.year then if x.month = y.month then if x.day > y.day then writeln(1) else writeln(-1); if x.year = y.year then if x.month = y.month then if x.day = y.day then writeln(0); end; begin OutDate(a); OutDate(b); c:=srawn(a,b); writeln('otwet:', c);end.

хотя если вывод поставить в процедуру тогда все нормально.
program kr_pr_4;

procedure fgerona(a,b,c:real);
var
p,s:real;
begin
p:=(a+b+c)/2;
s:= sqrt(p*(p-a)*(p-b)*(p-c));

end;

var
a,b,c,s,p:real;
begin
writeln('Введите сторону А');
read(a);
writeln('Введите сторону B');
read(b);
writeln('Введите сторону C');
read(c);
fgerona(a,b,c);
writeln('S = ',s);
end.

элементов; 3) сумму элементов которые делятся на 3; 4) минимальный и максимальный элемент. (используя procedure или function, но чтоб была рекурсия)ПОЖАЛУЙСТА ПОМОГИТЕ ВОПРОС ЖИЗНИ И СМЕРТИ!!