Как написать имя настя в кумире команды черепашки

var x1,x2,x3,x4,x5: integer;

s: real;

begin

  read(x1,x2,x3,x4,x5);

  s: = (x1+x2+x3)/(x4+x5);

  if round(s)=s then writeln("celoe - "s);

end.

с: =(a+b)*(b-a) должно быть ну и тогда с это разность квадратов а и в

a- к красному

b- к зеленому

с- к синему

input "vvedite slovo s = "; s$for i = len(s$) to 1 step -1print mid$(s$, i, 1); next iend

получение новой строки

input "vvedite slovo s = "; s$for i = len(s$) to 1 step -1r$ = r$ + mid$(s$, i, 1)next iprint r$end