Найти сумму квадратов чётных чисел и сумму кубов нечётных чисел от 1 до Н

n:=25+random(13);
skv:=0;
skb:=0;
for i:=1 to n do
if odd(i) then skb:=skb+i*i*i
else skv:=skv+i*i;

//ввод а
//ввод b
if a mod b<>0 then write('Первое число не делится нацело на второе')
else 
 begin
  writeln(('Первое число делится нацело на второе');
  write('Остаток=',a mod b,' частное=',a div b);
 end;

procedure TForm1.Button1Click(Sender: TObject);
var n,i,skv,skb:integer;
begin
  randomize;
  n:=25+random(13);
  Edit1.Text:=inttostr(n);
  skv:=0;
  skb:=0;
  for i:=1 to n do
  if odd(i) then skb:=skb+i*i*i
  else skv:=skv+i*i;
  Edit2.Text:=inttostr(skv);
  Edit3.Text:=inttostr(skb);
end;

procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer;
begin
a:=strtoint(Edit1.Text);
b:=strtoint(Edit2.Text);
if a mod b<>0 then
Label3.Caption:='Первое число не делится нацело на второе'+#13#10+
                'Остаток='+inttostr(a mod b)+' частное='+inttostr(a div b)
else Label3.Caption:='Первое число делится нацело на второе';
end;