Изучи программный код и определи его назначение​

2 var  3 s: string;   4 begin  5  readln(s); 6  while  pos('с',s)> 0  do  delete(s,pos('с',s),1); 7writeln(s);   8 end.это точно

program p;

var s,a,b,c: string; begins: =' фигуры'; writeln('введите названия трёх фигур'); read(a,b,c); writeln(s,': ',a,', ',b,' и ',c); end. 

егора-зеленая на 16гб

василий-желтую на 8гб

пети-краснаяна 4гб

гласные звуки иероглифами не передавались.