Задание + уточнение на фотографии

===== PascalABC.NET =====

begin

 var m := ReadInteger('Мощность множества X:');

 var x := ReadArrInteger('Введите числовые элементы множества X:', m);

 Readln;

 var y := ReadString('Введите символьные элементы множества Y:')

     .Where(c -> c <> ' ').ToArray;

 Print('X:');

 foreach var a in X do

   Write(a:5);

 Writeln;

 Print('Y:');

 y := y.Shuffle;

 for var i := 0 to x.High do

   Write(y[i]:5)

end.

группы клавиш на клавиатуре делятся по своему назначению:

1)алфавитно-цифровая группа - для ввода букв и цифр

2)группа клавиш-модификаторов - для изменения действий других клавиш ( shift,ctrl,alt)

3)   функциональная группа f1-f12

4)цифровая панель (цифры справа для бухгалтеров и операторов)

это основые  группы клавиш на клавиатуре, также могут быть кнопки для , звуком, компьютером..

vara,b: integer; c: real; beginwriteln ('введите 1 число'); read (a); writeln ('введите 2 число'); read (b); c: =(a/1)/(1/b); writeln (c); end.