Запусти Pascal. Введи программу.

program pr_1;
var
x, y,sum, umn: integer;
begin
write ('x=');
readln (x);
write ('y=');
readln (y);
sum:=x+y;
umn:=x*y;
writeln ('sum=',sum);
writeln ('umn=',umn);
readln;
end.

Результаты работы внеси в таблицу для заданных x и y.
x 40
y 49
sum
?
umn
?

Тут всё раз х = 40, а y = 49, то sum будет равно 89 (sum = x+y (40+49)), а umn будет равно 1960 (umn = x*y(40*49)), надеюсь правильно понял задачу.

1) 

var

s: string;

begin

s: ='пробел';

writeln(s);

delete(s,4,1);

insert('д',s,4);

writeln(s);

end.

2)

var

i: integer;

a,b: string;

begin

readln(a);

b: ='';

for i: =1 to length(a) do

b: =b+a[i]+' ';

writeln(b);

end.

3)

var

a: string;

begin

readln(a);

if a[2]=a[4] then writeln('равны')

else  writeln('не равны');

end.

если хранить без знака, то диапазон от 0 до 15(2^3+2^2+2^1+2^0)