Нужен человек который знает паскаль

Как то вот так :)

program Project1;



{$APPTYPE CONSOLE}



uses

  SysUtils;

var

  a, b, c : Real;

  count : Integer;

function InDiapazzone( var p: Real ): Boolean;

begin

  if (p > -3) and (p < 5) then

      InDiapazzone := true

  else InDiapazzone := false;

end;

begin

  { TODO -oUser -cConsole Main : Insert code here }

   count := 0;

   if InDiapazzone(a) then inc (count);

   if InDiapazzone(b) then inc (count);

   if InDiapazzone(c) then inc (count);

   if (count = 0) then

      writeLn ('Нет совпадений')

   else       writeLn ('Совпадений '+ IntToStr( count ));





end.

больше на делфи похоже, под turbo не запустицца =)

пару строк вырезать и должно работать ))

а в каком это универе паскаль учат ещё? первый курс наверное?

если ещё не нашел решение - напиши мне - помогу.

за 1$ помогу )

Уж до чего народ измельчал мало того, что таблицу умножения не знают и жи ши через Ы пишут, так ещё и простейшую фигню на одну минуту решить не могут.

Program dla_daunov;
var sum,i:integer;
a:real;
begin
while i<3 do
begin
a:=0;
writeln('Введите число');
readln(a);
if  (a>-3) and (a<5) then sum:=sum+1;
i:=i+1;
end;
writeln();
if sum > 0 then writeln('Вы ввели ',sum,' элементов из данного диапозона')
else writeln('Вы не ввели элементов из данного диапозона');
end.