Три одноклассника — Влад, Виктор и Владимир, встретились спустя 12 лет после окончания школы. Выяснилось, что один из них стал актёром, другой физиком, а третий юристом. Владимир сказал, что на туризм ему не хватает времени, хотя его сестра — единственный юрист в семье, заядлый турист. Одноклассники вспомнили, что Влад всегда увлекался точными науками, а профессию выбрал не связанную с точной наукой. Зато Виктор никогда не любил точные науки, т.к. является очень творческим человеком и связал свою жизнь с театром. Выбери профессию. Влад —

Вроде бы Влад- Юрист

// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var k:=ReadInteger('Начальное значение (К):');
  var n:=ReadInteger(' Конечное значение (N):');
  var notfound:=True;
  for var i:=k to n do begin
    var flag:=True;
    var j:=2;
    var r:=round(sqrt(i));
    while flag and (j<=r) do
      if i mod j = 0 then flag:=false
      else j+=1;
    if flag then begin
      var s:=i.ToString;
      if s=s.Inverse then begin Print(i); notfound:=False end
      end
    end;
    if notfound then Writeln(0)
end.

Пример
Начальное значение (К): 2
 Конечное значение (N): 100000
2 3 5 7 11 101 131 151 181 191 313 353 373 383 727 757 787 797 919 929 10301 10501 10601 11311 11411 12421 12721 12821 13331 13831 13931 14341 14741 15451 15551 16061 16361 16561 16661 17471 17971 18181 18481 19391 19891 19991 30103 30203 30403 30703 30803 31013 31513 32323 32423 33533 34543 34843 35053 35153 35353 35753 36263 36563 37273 37573 38083 38183 38783 39293 70207 70507 70607 71317 71917 72227 72727 73037 73237 73637 74047 74747 75557 76367 76667 77377 77477 77977 78487 78787 78887 79397 79697 79997 90709 91019 93139 93239 93739 94049 94349 94649 94849 94949 95959 96269 96469 96769 97379 97579 97879 98389 98689

1. вывести на экран 6 раз своё имя

program imya;

const n=6;

var i:integer;

begin

for i:=1 to n do

writeln('ваше имя');

end.

Пояснения: делала с цикла (можно было написать и шесть раз writeln, но так удобнее). Переменную n ввела для быстрого изменения значений (если нужно будет написать имя не 6, а, к примеру, 8 раз, нужно было заменить только вначале). Ещё хочу отметить, что имя вводится по-английски и нельзя терять апострофы ( ' ).

2. program sum;

var sum:integer;

m:array[1..4] of integer;

i:integer;

begin

m[1]:=6

for i:=2 to 4 do begin

m[i]:=m[i-1]+1;

end;

sum:=m[1];

for i:=2 to 4 do begin

sum:=sum+m[i];

end;

writeln(sum);

end.

Пояснения: можно было делать и по-другому, но так тоже верно. Тут использовалось два цикла и массив. А блок-схему сами сделайте)))

3. program n!;

var n:real;

c:integer;

m:array[1..n] of integer;

begin

readln(n)

m[1]:=1;

for i:=2 to n do begin

m[i]:=m[i-1]+1;

end;

c:=m[1]

for i:=1 to n do begin

c:=c*m[i];

end;

writeln('n!',c);

end.

Если что не понятно, пишите, объясню