1. квадрат трехзначного числа оканчивается тремя цифрами, которые как раз и составляют это число. найти такие числа (например, 625: 625^2=390 625). 2. найти сумму целых положительных чисел, больших 20, меньших 100, кратных 3 и заканчивающихся на 2,4 или 8. решить в паскале

2)

Program Numbers;
Var
    i: integer;
    sum: integer;
Begin
    
    sum := 0;
        
    i := 21;
    while i<=99 do
    begin
        if (i mod 10 = 2) or (i mod 10 = 4) or (i mod 10 = 8) then
            sum := sum + i;
        
        i := i + 3;
    end;
    
    WriteLn(sum);
    
    ReadLn;
End.