По Delphi только две пары было и уже практика.

[Ko$]

В Delphi вообще не шарю ничё толком не успели обьяснить и практику поставили ещё и экзамены на носу помогите! вам же не трудно человеку помоч выручите пожалуйста!

Условный оператор.
Begin61. Дано целое число, лежащее в диапазоне от –999 до 999. Вывести строку — словесное описание данного числа вида "отрицательное двузначное число", "нулевое число", "положительное однозначное число" и т.д.
Оператор выбора.
Begin77. Дано целое число в диапазоне 20 – 69, определяющее возраст (в годах). Вывести строку — словесное описание указанного возраста, обеспечив правильное согласование числа со словом "год", например: 20 — "двадцать лет", 32 — "тридцать два года", 41 — "сорок один год".
Оператор цикла.
Begin97. Дано вещественное число X (|X| < 1) и целое число N (> 0). Вывести X – X3/3 + X5/5 – ... + (–1)NX2N+1/(2N+1). Полученное число является приближенным значением функции arctg в точке X.
Одномерный массив.
Array169. Даны множества A и B, состоящие соответственно из N1 и N2 точек. Найти минимальное1|максимальное2 расстояние между точками этих множеств и сами точки, расположенные на этом расстоянии.
Матрица.
Matrix200. Дана целочисленная матрица размера M x N. Найти элемент, являющийся максимальным в своей строке и минимальным в своем столбце. Если такой элемент отсутствует, то вывести 0.
Символы и строки.
String243. Расшифровать это предложение.
Заранее всех благодарю!

[Pein95]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  var
  n:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  readln(n);
  if n<0 then writeln('-')
  else writeln('+');
  if n=0 then writeln('0');
  case n of
  1..9:writeln('1 znak');
  10..99: writeln('2 znak');
  100..999: writeln('3 znak')  ;
  end;

  if n mod 2 = 0 then writeln ('chetnoe');
  if n mod 2<>0 then writeln('ne chetnoe');

  readln;
end.

вроде так

[Ko$]

Благодарю Pein95 немного переделал и вот:

procedure TForm1.btn1Click(Sender: TObject);
var
n,d:integer;
begin

  n:=strtoint(edt2.Text);
  if n<0 then edt1.text:=('Это  число  отрицательное,')
  else edt1.Text:=('Это  число  положительное,');
  if n=0 then edt1.Text:=('Это  число  нулевое,');
  case n of
  -9..-1,1..9:edt1.Text:=(edt1.Text+' содержит 1 знак,');
  -99..-10,10..99:edt1.Text:=(edt1.Text+'содержит  2 знака,');
  -999..-100,100..999:edt1.Text:=(edt1.Text+'содержит  3 знака,');
  end;
  if n mod 2 = 0 then edt1.Text:=(edt1.Text+' чётное');
  if n mod 2<>0 then edt1.Text:=(edt1.Text+' не чётное');

end;

end.

и ещё вот сделал про года:

procedure TForm1.btn1Click(Sender: TObject);
var
n:Integer;
begin
n:=StrToInt(Edit1.Text);
 if  (StrToInt(Edit1.Text)<20) or (StrToInt(Edit1.Text)>69) then
  begin
   ShowMessage('от 20 до 69');
   Edit1.Clear;
  end else
case n mod 10 of
 5,6,7,8,9,0:Label1.Caption:= Edit1.Text +' лет';
 1:Label1.Caption:= Edit1.Text +'год';
 2,3,4:Label1.Caption:= Edit1.Text +' годa';
end;
end;

end.

Сделайте пожалуйста остальные уже вот вот сдать надо ещё отчёт делать ешё раз спасибо