Начертите на бланке структуру базы данных «картинная галерея», содержащую сведения о полотнах художников. укажите необходимые имена полей и их типы данных. задайте ключевое поле.

Type
  index='0'..'z';
var
  Ch:array[0..255] of integer;
  s:string;
  i,max,imax:integer;
begin
  { очищаем массив счетчиков }
  for i:=0 to 255 do Ch[i]:=0;
  Writeln('Введите текст');
  Readln(s);
  for i:=1 to Length(s) do Inc(Ch[Ord(s[i])]);
  max:=Ch[0]; imax:=0;
  for i:=33 to 255 do { не рассматриваем непечатаемые символы и пробел}
    if max<Ch[i]then begin max:=Ch[i]; imax:=i end;
  Writeln('Символ "',Chr(imax),'" встретился ',max,' раз(а)')
end.

Тестовое решение:
Введите текст
"Что значит имя? Роза пахнет розой, хоть розой назови её, хоть нет." (В.Шекспир)
Символ "о" встретился 9 раз(а)

Var
  i,n,k:integer;
begin
  Writeln('15 чисел, кратных 19:');
  i:=100;
  while i mod 19<>0 do Inc(i); { первое, кратное 19 }
  Write(i,' ');
  k:=1;
  while k<15 do begin i:=i+19; Write(i,' '); Inc(k) end;
  Writeln
end.

Тестовое решение:
15 чисел, кратных 19:
114 133 152 171 190 209 228 247 266 285 304 323 342 361 380

Задача 2.
var
  m,V,rho,rmax:real;
  i:integer;
begin
  Writeln('Максимальная плотность материала для 30 тел.');
  Writeln('Вводите через пробел массу тела (кг) и объем (куб.см)');
  rmax:=0;
  for i:=1 to 3 do
  begin
    Write(i:2,': '); Read(m,V);
    rho:=m/V;
    if rmax<rho then rmax:=rho
  end;
  Writeln('Максимальная плотность равна ',rmax:0:3)
end.