Всё правильно кроме видит
1) A='Q' -<em>cимвольный.</em>
2) B=5 - <em>целый.</em>
3) С= 45. - <em>вещественный.</em><em />
4) D = True - <em>логический.</em>
У тебя Windows 10 образ плохой или твой пк не поддерживает Windows 10, ставь 7 Windows.
Ответ на Ваш вопрос простой: никак!
В языке Паскаль есть так называемый диапазонный тип. Он реализуется, как "вырезка" части диапазона базового типа. Например, если базовый тип целочисленный, можно вырезать из него числа в диазахоне "от" и "до".
Например, описание k: -10..10 означает, что k целочисленное и может изменять от -10 до 10. Целочисленное оно потому, что константы -10 и 10 в PascalABC.NET имеют тип integer. Проблема же состоит в том, что в PascalABC.NET контроль за выходом значения переменной за отведенные границы всего лишь... отсутствует! Т.е. описание k: -10..10 - это просто "хотелка". И Вы можете продолжать этого хотеть. Может быть, Вы подумали, что это PascalABC.NET такой плохой язык? Спешу разочаровать: так ведут себя все диалекты Паскаля. Дело в том. что проверка границ диапазона фактически должна делаться при каждой машинной операции с участием переменной диапазонного типа. И это настолько замедляет программу, что такая проверка, даже если она предусмотрена в конкретном компиляторе, по умолчанию выключена. Более того, оказывается, что гораздо проще проверять выход за границы диапазона напрямую в программе!
Что касается переменной типа real - с ней еще хуже: ее даже нельзя объявить в диапазонном типе, поскольку тип real не является порядковым.
Как итог: проверяем if (k>=-10) and (k<=10) then <все хорошо>.
Можно воспользоваться вариантом if k.Between(-10,10) then ...
Between работает и с real: if r.Between(3.4,15.063) then ...
Не понял по поводу "7 столбиков". Потому, что алгоритм заполняет массив квадратами чисел от 1 до 10. То-есть на выходе вы получаете последовательность:
1
4
9
16
...
81
100
На языке программирования это может выглядеть так:
//Pascal
const n = 10;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
a[i]:=i*i
writeln(a[i]);
end.