Язык C
ввести с клавиатуры 2 вещественных числа. если числа одного знака то распечатать их произведение если числа разных знаков то распечатать их сумму

Pascal ABC.Net 3.3.5

Вот только программа выдает, что таких чисел нет )))

program Poisk;

var
  i, a, b, c, d: integer;

begin
  for i := 100 to 999 do
    a := sqr(i); {переменной а присваиваем квадрат числа}
  b := a mod 10; {переменной b присваиваем остаток основного числа. Это 1-я цифра}
  a := a div 10; {переменной а присваиваем целую часть основного числа}
  c := a mod 10; {переменной c присваиваем остаток числа. Это 2-я цифра}
  a := a div 10; {переменной а присваиваем целую часть числа}
  d := a mod 10; {переменной d присваиваем остаток числа. 3-я цифра}
  a := b + c + d; {переменной а присваиваем сумму 3-х цифр}
 
  if a = i {если а = основному числу}
    then writeln(i, ' ', a) {то вывод такого числа}
  else writeln('Таких чисел нет.'); {иначе вывод, что таких чисел нет}
end.

Поидее, для выполнения данных команд должны изначально давать значение X. Если в коде была бы заданна такая запись, X присвоилось бы абсолютно рандомное число. С точки зрения программирования, это абсолютно неправильная постановка условия. Вам не дан X, но вас просят начинать именно со строки нахождения X, в программировании линейные алгоритмы выполняются подряд, не пропуская команд. Следовательно, если вы работаете с языком, который допустим не зануляет переменные, которым не были присвоенны значения, то вы не сможете этого решить и ответ будет каждый раз разным. Если же данный язык зануляет переменные, то ответом будет: X:=0+2; X=2. Y:=2+2; Y=4.