Девушка потратила в магазине 1458.04 рубля
Вместо integer напиши real в var и будет тебе счастье
{т.е. квадрат лежит на оси x начиная от 0 до 5, т.к. сторона квадрата =5, аналогично и с осью y, отсюда условия x>=0 x<=5 y>=0 y<=5}
var
x,y:real;
begin
readln(x,y);
if (x>0)and(x<5)and(y>0)and(y<5)then
writeln('попадает')
else
writeln('не попадает');
end.
Не понял по поводу "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.