Паскаль сформировать массив в из 16 чисел, в диапазоне [5; 80] и вывести его в строчку.

Var b:array[1..16] of longint;
    i:longint;

begin
randomize;
for i := 1 to 16 do b[i] := random(76)+5;
for i := 1 to 16 do write(b[i],' ');
end.

'''
Шифр Цезаря.
Только для английского алфавита.
Python 3.X
'''

s = input('Строка для шифрования: ')
n = int(input('Сдвиг: '))
res = [] # список с символами результата
for l in s: # для каждого символа в строке
    if not 97 <= ord(l) <= 122: # если символ - не латинская буква ...
        res.append(l) # ... добавить к ответу "как есть"
    else:
        o = (ord(l) - 96 + n) % 26 # номер закод. буквы в алфавите
        char = chr(o + 96) # символ по таблице ASCII
        res.append(char) # добавить закодированную букву к ответу
print('Результат:', ''.join(res))

Program one;var a,b,c,d,e,g:integer;beginwriteln('Введите цену помидор за один килограмм (в рублях)');readln(a);writeln('Введите вес помидор');readln(b);writeln('Стоимость покупки: ',a*b,' руб');writeln('Введите цену огурцов за один килограмм (в рублях)');readln(c);writeln('Введите вес огурцов');readln(d);writeln('Стоимость покупки: ',c*d,' руб');writeln('Введите цену яблок за один килограмм (в рублях)');readln(e);writeln('Введите вес яблок');readln(g);writeln('Стоимость покупки: ',e*g,' руб');end.