Pascal, помогите пожалуйста, уже достало, честное слово... Ну не моё это.1) Напишите...

Question

Pascal, помогите пожалуйста, уже достало, честное слово... Ну не моё это.
1) Напишите программу в которой на экран выводится строка из трех случайных прописных латинских символов.
Пример вывода:
Паскаль: «Я сгенерировал строку: fke»

2)Напишите программу, в которой с клавиатуры вводится ширина диапазона
случайных чисел и выводится случайное число в диапазоне от 0 до N (где N –
введенное с клавиатуры число)
Пример вывода:
Введите ширину диапазона случайных чисел: 150
Паскаль: «Я сгенерировал число: 48»

3)Напишите программу, в которой с клавиатуры вводятся начальное и
конечное значения диапазона случайных чисел и выводится случайное число в
диапазоне от M до N (где M и N – введенные с клавиатуры числа)
Пример вывода:
Введите начало диапазона случайных чисел: 50
Введите конец диапазона случайных чисел: 150
Паскаль: «Я сгенерировал число: 89»

4)Напишите программу для случайного определения победителя школьной
лотереи. В лотерее участвовали билеты с тремя двузначными числами.
На экран последовательно выводится три двузначных числа.
Пример вывода:
Первое число выигрышного билета: 54.
Второе число выигрышного билета: 34.
Третье число выигрышного билета: 72.
Выиграл билет с комбинацией числе: 54 34 72.

Answer 1

Program randstring;
var
a:array[1..3] of char;
i:integer;

begin
while i < 3 do begin
i+=1;
a[i]:=rand();
write(a[i]:3);
end;
end.

programm r;
var
n:integer;
begin
read(n);
write(random(n));
end.

сложный вариант
programm r;
var
a:array[1..1000]of integer;
i,m,n:integer;
begin
read(n,m);
i:=n;
while i < m do begin
i+=1;
a[i-n]:=i-n;
end;
i:=random(m-n)+1;
write(a[i])
end.


while i < 3 do begin
i+=1;
writeln(random(90)+10)
end;