Вычислить значение выражения

uses crt;
const A=-0.75;
      B=51;
var y,x:real;
begin
writeln('Введите X:');
read(x);
y:=1+abs(x-b)+sqr(x-a)/2;
writeln('Y = ',y);
end.

uses crt;
const N=20;
var arr:array[1..N] of integer;
    i:integer;
begin
for i:=1 to N do
 begin
 arr[i]:=random(30);
 write(arr[i],' ');
 end;
writeln();
writeln('Кратные трём:');
for i:=1 to N do
 if arr[i] mod 3 = 0 then write(arr[i],' ');
end.

uses crt;
var s,n:string;
    i:integer;
begin
writeln('Введите строку');
readln(s);
for i:=1 to length(s) do
  if (s[i]='0') or  (s[i]='1') or (s[i]='2') or (s[i]='3') or (s[i]='4') or (s[i]='5') or
     (s[i]='6') or  (s[i]='7') or (s[i]='8') or (s[i]='9') then
       n:=n+s[i];
writeln(n);
end.