Простейшее же задание... как Вы дальше учиться собираетесь, если даже такое не делаете сами?
//PascalABC.NET 3.2 сборка 1318
begin
var ars:=readstring().Split;
var k:=readinteger();
ars.Where(x -> length(x)=k).Where(x -> x.where(y -> lowcase(y)='ы').count>1).Print;
end.
Пример ввода:
было быыть будет
5
Пример вывода:
быыть
program summa;
var
x, y:real;
begin
writeln('Введите вещественные числа');
read(x,y);
writeln('их сумма: ', x+y);
writeln('их разность: ', x-y);
writeln('их произведение: ', x*y);
writeln('их частное: ', x/y:0:2);
end.
На примере DelphiVarX:integer; Button_Click() BeginS:=0;x:=StrtoInt(Text1.text);x:=x mod 10; Label1.caption(InttoStr(x)); End; Результат: 5