помогите пожалуйста сделатьинформатику

Нужно написать программку? На каком языке программирования?

без понятия сможешь сделать как ты знаешь?

Дано трехзначое число.
Отыскать число полученное при перестановке первой и 2-ой числа
var N:integer;
begin
 writeln('введите трехзначное число 99lt;Nlt;1000 ');
 readln(N);
 (n mod 10)- третья цифра,  (n div 10) mod 10 - 2-ая цифра
 (n div 100) mod 10 - 1-ая цифра
 n:= (n mod 10)*100+((n div 10) mod 10)*10+(n div 100) mod 10;
 writeln(N);
end.

Дано четырехзначое число.
Отыскать сумму и творенье цифр числа
var N, p, sum, i:integer;
    C:byte;
begin
 writeln('введите четырехзначное число');
 readln(N);
 p:=1 ; sum:=0;
 for i:=1 to 4 do
 begin
  c:=n mod 10; заключительная цифра числа
  n:=n div 10; отбрасываем заключительную цифру числа
  sum:=sum+c;
  p:=p*c;
 end;
 writeln(sum:8, p:8);
end.