Ребята срочно помогите! 15 баллов! Решить в паскале!На вход подаются два

Var a,b,i,s:integer;
begin
write ('Введите числа: ');
readln (a,b);
if alt;=b then
for i:=a to b do
if (i mod 5 = 0) and (igt;15) then s:=s+i;
if agt;b then
for i:=b to a do
if (i mod 5 = 0) and (igt;15) then s:=s+i;
if sgt;0 then writeln ('Сумма всех чисел меж ними, которые кратны 5 и превосходят 15, одинакова: ',s)
else writeln ('NO')
end.

Var a, b, c: real;
begin
a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
c := a+b;
Label1.Caption := FloatToStr(c);
If 5lt;alt;15
Then Label1.Caption := FloatToStr(c)
Else If 5lt;blt;15
Then Label1.Caption := FloatToStr(c)
end;