Задача В программе в переменную name вводится имя с клавиатуры, выведите на экран приветствие для введенного имени.

Входные данные (описание данных, на которых проверяется решение задачи):
на вход программы подается одно слово.

Выходные данные (описание того, в каком формате программа должна вывести на экран результат):
выведите на экран строку приветствия.

Для решения задачи Вам даются примеры, которые Вы должны проанализировать и подумать как из входных данных получаются выходные.

Примеры
№ Входные данные Выходные данные
1 Dima Hello, Dima!
Примечание: вывод БЕЗ пробелов!

Все программы проверяются на нескольких входных данных. Обязательно тестируйте Вашу программу на других значениях. Придумайте 2-3 теста самостоятельно. Подумайте, что Вы хотите, чтобы программа вывела на экран и посмотрите, что она выводит на самом деле.
Оцените работу Вашей программы, и отправьте ее на проверку.

2^i = 64

i = 6 бит приходится на 1 символ

3 * 40 * 60 * 6 = 43200 бит

43200 : 8 = 5400 байт

: знайти суму всіх натуральних чисел від 1 до п. program suma 2; var i, n, s: integer; begin writeln (‘ведіть кількість натуральних чисел: ’);   write (‘n=’); readln (n);

: знайти суму всіх натуральних чисел від 1 до п. program suma 2; var i, n, s: integer; begin writeln (‘ведіть кількість натуральних чисел: ’);   write (‘n=’); readln (n);   i: =1; s: =0;   repeat     s: =s+i;     i: =i+1;   until i> n;   writeln (‘s=’,s);

  i: =1; s: =0;   repeat     s: =s+i;     i: =i+1;   until i> n;   writeln (‘s=’,s);

мало данных для главное - размер пробоины и размер листа

var a: array [1..10] of integer;

min,max,i,c,b: integer;

begin

  read(c,b);

  randomize;

  for i : = 1 to 10 do

        a[i]: = random(b) -c+1;

  min: =1;

  max: =1;

  for i: = 1 to 10 do

  begin

        if a[min]> a[i] then min: =i;

        if a[max]< a[i] then max: =i;

  end;

  writeln(a[min], a[max]);

end.