Var a,b,g,min:real;

begin

writeln('Сравнение двух чисел a и b');

writeln('Введите a и b');

readln(a,b);

If aelse if a>b then b:=min

else if a=b then a:=min;

g:=min*2;

writeln(g);

End.

в чем проблема??Выдаёт в итоге 0, при любых условиях

1.что может содержать таблица

2.рисунок
3.текст

2.элементами таблицы являются
1.строка
2.столбец
3.страница
4.ячейка
3.вертикальное выравнивание содержимого ячеек может быть 
1.по центру
3.по верхнему краю
4.по нижнему краю
4.какие основные элементы текста используются в программе microsoft word
1.символ
вообще символ основной, и наименьший элемент текста, думаю остальное не является основным.

5.в какой вкладке находится группа инструментов 'стили таблиц'?
1.вид
2.конструктор
3.макет
4.вставка
6.горизонтальное выравнивание содержимого ячеек может быть
1.по центру

3.по верхнему краю
4.по нижнему краю
7.какие действия можно выполнить с таблицей в Ms Word

2.обьединять ячейки
3.изменять ширину столбцов 
4.разбивать ячейки

Var
  a: real;
  
begin
  while a <= 1000 do
  begin
    writeln('Введите сумму покупки > 1000р');
    readln(a);
    if a > 1000 then break
    else writeln('Ошибка! Введенная сумма покупки <= 1000p');
  end;
  writeln('Стоимость покупки с учетом скидки 10%:  ', a * 0.9);
end.
Данная программа проверяет, больше 1000 или нет, введенная стоимость покупки. Можно сделать проще без проверки:
var
  a: real;
  
begin
  writeln('Введите сумму покупки > 1000р');
  readln(a);
  writeln('Стоимость покупки с учетом скидки 10%:  ', a * 0.9);
end.