q197747046

program q197747046;
var task: integer;

procedure task19;
 var s: string;
begin
  write('Введите название города: ');
  readln(s);
  writeln(Length(s));
end;

procedure task20;
 var s1,s2: string;
begin
  write('Первое слово = ');
  readln(s1);
  write('Второе слово = ');
  readln(s2);
  if (Length(s1) > Length(s2)) then
    writeln('Второе слово короче')
      else writeln('Первое слово короче');
end;

procedure task21;
 var s1,s2: string;
begin
  write('Введите два названия устройств компьютера ');
  readln(s1);
  readln(s2);
  if (Length(s1) < Length(s2)) then
    writeln('Второе название длинее')
      else writeln('Первое название длинее');
end;

procedure task22;
 var name: string;
begin
  write('Как вас зовут? ');
  readln(name);
  writeln('Привет, ', name);
end;

procedure task23;
 var name: string;
begin
  write('Введите название футбольной команды: ');
  readln(name);
  writeln(name + ' Это чемпион!');
end;

procedure task24;
 var str: string;
begin
  str := 'KURSOR';
  writeln(str);
  Delete(str, 1, 3);
  writeln(str);
end;

procedure task25;
 var str: string;
begin
  str := 'PROGRAMMA';
  writeln(str);
  str := copy(str,2,2) + copy(str,7,1);
  writeln(str);
  {
    Copy(s,index,count)
    Delete(s,index,count)
    Insert(subs,s,index)
    Concat(s1,...,sn)
  }
end;

procedure task26;
 var str: string;
begin
  str := 'KURSOR';
  writeln(str);
  Delete(str, Length(str) - 1, 2);
  writeln(str);
end;

procedure task27;
 var str: string;
begin
  str := 'PROGRAMMA';
  writeln(str);
  str := copy(str,5,3) + copy(str,9,1);
  writeln(str);
end;

begin
  while true do begin
    write('Введите номер задания: ');
    readln(task);
    case task of
    19: task19;
    20: task20;
    21: task21;
    22: task22;
    23: task23;
    24: task24;
    25: task25;
    26: task26;
    27: task27;
    else writeln('Такого задания нет!');
    end;
  end;
end.