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

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

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

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