В Паскале
1. Есть ли среди трёх чисел пара одинаковых чисел?
2. Дано натуральное число m . Имеются ли в этом числе цифры a и b, вводимые с клавиатуры?
3.ряд чисел Фибоначчи 1, 1, 2,3,5,8,... Каждое следующее число равно сумме двух предыдущих. Найти n-ое число ряда.

// PascalABC.NET 3.0, сборка 1073var  a,b,c:integer;begin  Write('Введи a,b,c: '); Read(a,b,c);  if (a=b) or (a=c) or (b=c) then Writeln('Есть пара одинаковых')  else Writeln('Все числа различные')end.Тестовое решение:Введи a,b,c: 6 3 -12Все числа различныеВведи a,b,c: 5 -4 5Есть пара одинаковых// PascalABC.NET 3.0, сборка 1073var  n:string;  a,b:char;begin  Write('Введи натуральное число n: '); Readln(n);  Write('Введи подряд пару разыскиваемых цифр: '); Read(a,b);  if Pos(a,n)>0 then Writeln('В числе есть цифра '+a)  else Writeln('В числе цифры '+a+' нет');  if Pos(b,n)>0 then Writeln('В числе есть цифра '+b)  else Writeln('В числе цифры '+b+' нет')end.Тестовое решение:Введи натуральное число n: 3141592653589793Введи подряд пару разыскиваемых цифр: 47В числе есть цифра 4В числе есть цифра 7// PascalABC.NET 3.0, сборка 1073var  i,n:integer;  fiba,fibb,fib:longint;begin  Write('Введи натуральное число (1-46): '); Read(n);  if n<3 then Writeln('Число Фибоначчи равно 1')  else begin    fiba:=1; fibb:=fiba;    for i:=3 to n do begin      fib:=fiba+fibb;      fiba:=fibb; fibb:=fib    end;    Writeln('Число Фибоначчи равно ',fib)  endend.Тестовое решение:Введи натуральное число (1-46): 13Число Фибоначчи равно 233