Даны целые числа а1, an. вывести на печать только те числа, для которых выполняется сделать как можно проще и понятней)) за понимание)

................................

// PascalABC.NET 3.0, сборка 1073
var
  c:char;
begin
  Write('Введите римскую цифру (I,V,X,L,C,D,M): '); Readln(c);
  case c of
  'I':Writeln('1');
  'V':Writeln('5');
  'X':Writeln('10');
  'L':Writeln('50');
  'C':Writeln('100');
  'D':Writeln('500');
  'M':Writeln('1000');
  else Writeln('Вы ошиблись')
  end
end.

// PascalABC.NET 3.0, сборка 1073
var
  n:byte;
  x,y:real;
begin
  Write('Введите номер варианта (1-5): '); Readln(n);
  case n of
  1:begin
    Write('Выражение x^2+y^2, введите x,y: '); Read(x,y);
    Writeln('Результат: ',sqr(x)+sqr(y))
    end;
  2:begin
    Write('Выражение (a+b)^2, введите a,b: '); Read(x,y);
    Writeln('Результат: ',sqr(x+y))
    end;
  3:begin
    Write('Выражение (c-d)^2, введите c,d: '); Read(x,y);
    Writeln('Результат: ',sqr(x-y))
    end;
  4:begin
    Write('Выражение |sin(x)|, введите x: '); Read(x);
    Writeln('Результат: ',abs(sin(x)))
    end;
  5:begin
    Write('Выражение sqrt(a^2+b^2), введите a,b: '); Read(x,y);
    Writeln('Результат: ',sqrt(sqr(x)+sqr(y)))
    end;
  else Writeln('Вы ошиблись')
  end
end.

Для целей настоящего Закона указанные ниже термины имеют следующее значение: 

автор - физическое лицо, творческим трудом которого создано произведение; 

аудиовизуальное произведение - произведение, состоящее из зафиксированной серии связанных между собой кадров (с сопровождением или без сопровождения их звуком), предназначенное для зрительного и слухового (в случае сопровождения звуком) восприятия с соответствующих технических устройств; аудиовизуальные произведения включают кинематографические произведения и все произведения, выраженные средствами, аналогичными кинематографическим (теле- и видеофильмы, диафильмы и слайдфильмы и тому подобные произведения), независимо от их первоначальной или последующей фиксации; 

база данных - объективная форма представления и организации совокупности данных (статей, расчетов и так далее), систематизированных таким образом, чтобы эти данные могли быть найдены и обработаны с компьютера; 

воспроизведение произведения - изготовление одного или более экземпляров произведения или его части в любой материальной форме, в том числе в форме звуко- и видеозаписи, изготовление в трех измерениях одного или более экземпляров двухмерного произведения и в двух измерениях - одного или более экземпляров трехмерного произведения; запись произведения в память компьютера также является воспроизведением; 

воспроизведение фонограммы - изготовление одного или более экземпляров фонограммы или ее части на любом материальном носителе; 

запись - фиксация звуков и (или) изображений с технических средств в какой-либо материальной форме, позволяющей осуществлять их неоднократное восприятие, воспроизведение или сообщение.