Question

1.Переменная num может принимать 4 значения: 1, 2, 3 или 4. Если она имеет значение '1', то в
переменную result запишем 'зима', если имеет значение '2' – 'весна' и так далее. Решите задачу
через switch-case

2. Дана строка. Вставить после каждого символа два случайных символа

3 Напишите скрипт, который сообщает о наличии слова ‘Java’ во введенной строке и выводит false
в противном случае.
4 Два двузначных числа, записанных одно за другим, образуют четырёхзначное число, которое
делится на их произведение. Найти эти числа.

Answer 1

знаю как сделать первое 
var num:integer;
begin
readln(num);
case x of
1:writeln('зима');
2:writeln('весна');
3:writeln('лето');
4:writeln('осень') else writeln('ошибка');
end;
readln
end.