Банкке 3% салыммен S теңге салынды. N жылдан кейін салым қанша болады?​

uses crt; var a[1..100] of integer; i,n,count: integer; begincount: =0; read(n); for i: =1 to n do read(a[i]); if a[i]> 0 then inc(count); write(count); end.

у меня получилось, что первое число 954, второе 459, а третье 495. т.е. получился пример : 954-459=495

аx2+c=0

аx2=-с

х=-с/а

если -с/а меньше 0, корней нет

есла -с/а равно 0, то х=0

если -с/а больше 0,х=+-корень из -с/а

var x,i,x1,x2,x3: integer

s: string;

begin

  read(x);

  s: =str(x);

  x1: =int(s[1]);

  x2: =int(s[2]);

  x3: =int(s[3]);

  if (x1+x3)mod x2=0 then writeln("да")

  else writeln("нет");

end.