Сопоставьте значение переменной a и тип, к которому она относится. подсказка - 4 a = 5 a = 'mama' a = 'x' a = 5 // 2 a = 5 / 2 a = 5 ** 0.5 перетащите элементы на пустые поля сверху (каждый может быть использован несколько раз) float int str

Проблематично что не ясно какой язык

a = 5 int
a = 'Mama' str
a = 'x' str
a = 5 // 2 почему-то похоже на целочисленное деление, потому int  или ошибка
a = 5 / 2 float
a = 5 ** 0.5 похоже на возведение в степень float

Var A,B:real;
Begin
//1
Write('Длина = ');ReadLn(A);
Write('Ширина = ');ReadLn(B);
WriteLn('S = ',A*B);
WriteLn('P = ',2*(A+B));
//2
WriteLn;
Write('Кол-во денег: ');ReadLn(A);
Write('Стоимость покупки: ');ReadLn(B);
WriteLn('Сдача: ',A-B);
//3
WriteLn;
Write('Расстояние: ');ReadLn(A);
Write('Стоимость проезда 1 км: ');ReadLn(B);
WriteLn('Стоимость проезда ',A,' км: ',A*B);
//4
WriteLn;
Write('Цена товара: ');ReadLn(A);
Write('Вес покупки: ');ReadLn(B);
WriteLn('Цена покупки: ',A*B);
//5
WriteLn;
Write('Объём в баррелях: ');ReadLn(A);
WriteLn('Объём в литрах: ',A*159);
End.

Var n1,n2,A,B:integer;
    D:byte;
Begin
WriteLn('1 - Ввести n1 и n2, 0 - выход');
ReadLn(D);
While D = 1 do
   Begin
   Write('n1 = ');ReadLn(n1);
   Write('n2 = ');ReadLn(n2);
   For n2:= n1 to n2 do
       Begin
       A:=n2;
       B:=0;
       While A>0 do
          Begin
          B:=B*10+A mod 10;
          A:=A div 10;
          End;
       if B = n2 then Write(n2,' ')
       End;
   WriteLn;
   WriteLn('1 - продолжить, 0 - выйти');
   ReadLn(D);
   End;
End.

Правда, я не уверен, что она правильно работает на любых числах, поэтому ещё одна версия:

Var
   n1,n2,D:integer;
   A,B:string;
Begin
WriteLn('1 - Ввести n1 и n2, 0 - выход');
ReadLn(D);
While D = 1 do
   Begin
   Write('n1 = ');ReadLn(n1);
   Write('n2 = ');ReadLn(n2);
   For n2:= n1 to n2 do
       Begin
       A:=IntToStr(n2);
       B:='';
       For D:= Length(A) downto 1 do
           B:=B+A[D];
       if A=B then Write(n2,' ')
       End;
   WriteLn;
   WriteLn('1 - продолжить, 0 - выйти');
   ReadLn(D);
   End;
End.