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.