Решите пожалуйста на языке паскаль

Program z1;  Var a,b,c,d,e,t,i,g,h:integer; f:string;Begin  writeln('Введите 3-х значное число - '); read(a);  b:=a;  t:=0;  d:=0;  e:=1;  t:=0;  g:=543*130;  h:=130*130;  for i:=1 to 3 do  begin    a:= a mod 10;    b:=b div 10;    d:=d+a;    e:=e*a;    f:=f+IntToStr(a);    if (a = 1) then t:=t+1;    a:=b;  end;  g:=g div h;  writeln ('Задание 1');  writeln ('Число едениц - ',t);  writeln ('Сумма цифр - ',d);  writeln ('Произведение цифр - ',e);  writeln ('Задание 2');  writeln ('Число наоборот - ',f);  writeln ('Задание 3');  writeln ('Квадратов поместитс - ',g);End.