Запишите два числа: а) рациональных и отрицательных; б) целых и кратных 5; в) целых и положительных; г) простых и больших 30;

Var 
    i, summ:integer;
begin 
    summ := 0;
    for i:=1 to 25 step 2 do summ := summ + i;
end.