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.