Составить блок-схему алгоритма и написать на бумаге программу расчёта функции

program p1; vara: string; i: integer; beginreadln(a); for i: =length(a) downto 2 dobeginif a[i]=a[i-1]then delete(a,i,1); end; writeln(a); end.

ввел: asdfsss

результат: asdfs

либо я не знаю либо нужно подумать. но символу нельзя присвоить число ему можно присвоить только символ.

type

person=record

fam: string;

imya: string;

day: integer;

end;

var

a: array[1..50] of person;

i,n,z: integer;

begin

write('n='); readln(n);

for i: =1 to n do

begin

write('fam-'); readln(a[i].fam);

write('imya-'); readln(a[i].imya);

write('day-'); readln(a[i].day);

end;

write('z-'); readln(z);

for i: =1 to n do

if a[i].day=z then writeln (a[i].fam, ' ',a[i].imya);

readln;

end.

(12-3): (4+5)=1

1х2х3-4+5-6=1

(12: 3+4+5): (6+7)=1

(1+2-3+4+5+6-7): 8=1

var a: array [1..10] of integer;

i,k: integer;

begin

  read(a);

  k: =1;

  for i : = 1 to 10 do

  begin

        if a[k]> a[i] then k: =i;

  end;

  if k mod 2 = 0 then writeln(k," - chetnoe")

  else writeln(k," - ne chetnoe");

end.