program area;
uses crt;
var a, b, c, p, s: real;
begin;
clrscr;
writeln (' press any key ');
p:= (a+b+c)/2
s:= sqrt (p*(p-a)*(p-b)*(p-c));
writeln (Ploshad= ; s/8/3);
repeat until keypressed;
end.

program area;
uses crt;
var a, b, c, p, s: real;
begin;
clrscr;
write ('a = ');
readln(a);
write ('b = ');
readln(b);
write ('c = ');
readln(c);
p:= (a+b+c)/2;
s:= sqrt (p*(p-a)*(p-b)*(p-c));
writeln ('Ploshad= ', s:8:3);
readln;
end.

var
  f : TextFile; // уже точно не помню как в паскале, вроде так должно быть
begin
  assign(f,'file1.txt');
  rewrite(f); // если для записи, только для чтения - reset(f); для добавления в конец файла - append(f);
  writeln(f,'строка 1');
  writeln(f,'строка 2');
  close(f); // если файл открывался для чтения ф-ей reset, то закрывать его ф-ей close не обязателен.
end;

const
  numbers : array [1..9] of string = ('один', 'два', 'три',
                                      'четыре', 'пять',
                                      'шесть', 'семь',
                                      'восемь', 'девять');

var
  nums: array [1..100] of byte;
  n, i, max, n2 : integer;
begin
  i := 1;
  max := 0;
  write('n = ');
  readln(n);
  write('Цифры : ');
  repeat
    n2 := n div 10;
    nums[i]:=n-n2*10;
    if max<nums[i] then max:=nums[i];
    write(nums[i],' ');
    n := n2;
    inc(i);
  until n = 0;
  writeln;
  write('Максимальная цифра в числе - ', numbers[max]);
  readln;
end.

program One;
  var
 x: real;
 
begin
  write('‚ўҐ¤ЁвҐ ');
  read (x);

 if x<490 then writeln('г«мва дЁ®«Ґв®ўл©');

 if (x<435) or (x>390) then writeln('дЁ®«Ґв®ўл©');

 If  (x<495) or (x>435) then writeln('бЁ­Ё©');

 if (x<570) or (x>495) then writeln('§Ґ«Ґ­л©');

 if (x<590) or (x>570) then writeln('¦Ґ«вл©');

 if (x<630) or (x>590) then writeln('®а ­¦Ґўл©');

 if (x<770) or (x>630) then writeln('Єа б­л©');

 if x>770 then  writeln('Ёда Єа б­л©');
end.

var
  delimiters : set of char = [' ', ',', '.'];
  inputString : string;
  i, inStrLen : integer;
  symbols : array [0..255] of integer;

begin
  write('write text here : ');
  readln(inputString);
  for i:=0 to 255 do symbols[i]:=0;

  i:=2;
  inStrLen := Length(inputString);
  while i <= inStrLen do
  begin
    if inputString[i] in delimiters then
       if not (inputString[i-1] in delimiters) then
          inc(symbols[ORD(inputString[i-1])]);
    inc(i);
  end;

  if not (inputString[inStrLen] in delimiters) then
     inc(symbols[ORD(inputString[inStrLen])]);

  inStrLen := 0;
  for i:=0 to 255 do
    if symbols[inStrLen] < symbols[i] then
       inStrLen := i;

  if inStrLen > 0 then
     writeln('Symbol is "' + CHR(inStrLen) + '"')
  else writeln('Error. Input data invalid.');

  readln;

end.

type
    ukazatel=^element;
   
    element = record
        pered,posle:ukazatel; { Сссылки на предыдущий и последующий элемент }
        inform:Integer;              { Информационная часть (тип Integer явно не подходит... }
    end;