Напишите программу, которая вводит значение трёх переменных и выводит их произведение. ввод каждого значения производится с отдельной строки.

Int a = 0, b = 0, c = 0; int x = 0; x = x + a; x = x + b; x = x + c;

Pascal   var    a,b : integer;     r : boolean;       begin  readln (a);   r : = true;     b : = a mod 10;         while a > 0 do      begin      if a mod 10 < > b then      begin        r : = false;         a : = 0;       end;       a : = a div 10;       end;           if r then    writeln ('все цифры числа одинаковы')    else    writeln ('цифры числа различны');   end.

            const n=4; var x: array [1..n,1..n] of integer; s,i,j: integer; begin    randomize;     for i: =1 to n do begin          for j: =1 to n do begin              x[i,j] : = random(100);             write(x[i,j]: 6);           end;           writeln;       end;       s: =0;     for i: =1 to n do  for j: = 1 to n do  if i + j < n + 1 then s : = s + x[i, j];   writeln('s=',s);   readln;   end.