Можно использовать шифр Атбаш или шифр Цезаря, например
var
s : integer;
m : BigInteger;
begin
m := 1;
write('даны числа:');
for var i := 1 to 20 do begin
write(' ', i);
s := s+(i*i);
m := m*(i*i);
end;
writeln(#13, 'сумма квадратов ', s, #13, 'произведение квадратов ', m);
end.
PS. Вы бы хотя бы больше баллов предлагали за такие то задачи.