Помогите с Pascal ABC

[Kenzi1337]

Не работает хуета помогите

var a,b,c:real;
 
begin
    begin
   writeln('Задание первое:');
writeln('Введите a, b и c: ');
readln(a,b,c);
if (a>b) and (b>c) then
writeln('Ответ: да')
else writeln('Ответ: нет');
end;
  
  
    begin
      writeln('Задание второе:');
  
  if (a>1) and (a<10) then
    writeln(a);
  
  
  
      if (b>1) and (b<10) then
        writeln(b);
  
  
  
      if (c>1) and (c<10) then
        writeln(c);
      end;
      begin
      writeln('Задание третье:');
      if (a=b) and (a=c) and (b=c) and (b=a) and (c=a) and (c=b) then
    writeln('Ответ: да')
      else writeln('Ответ: нет');
      end;
      begin
      writeln('Задание четвертое:');
      if (a<b) and (a<c) and (b<c) then
      
        a:=a*2;
        b:=b*2;
        c:=c*2;
      
        writeln('Удвоенное число a:', a);
        writeln('Удвоенное число b:', b);
        writeln('Удвоенное число c:', c);
        else
        
           writeln('Они не являются упорядоченными по возрастанию!');


      end;
end.

Само задание:
Задание 3. Составить программу, по которой с клавиатуры вводятся 3 целых числа А, В и С.
1) Выяснить, верно ли a < b < c ? Ответ получить в текстовой форме: верно или неверно.
2) Вывести на экран те числа, которые принадлежат отрезку [1; 10].
3) Проверить, есть ли среди этих чисел равные. Ответ получить в текстовой форме: да или нет.
4) Удвойте эти числа, если они являются упорядоченными по возрастанию.

 

[brunoj]

У тебя во-первых нет имени программы, во вторых одиночные кавычки замени на двойные, в-третьих нет кое-где в конце операторов точки с запятой, в-четвертых я бы посоветовал делать каждую задачу в отдельной программе, а то куча какая-то у тебя получилась. И вроде тип переменных должен быть integer, но точно не помню

 

[secre]

Не работает хуета помогите

var a,b,c:real;

begin
    begin
   writeln('Задание первое:');
writeln('Введите a, b и c: ');
readln(a,b,c);
if (a>b) and (b>c) then
writeln('Ответ: да')
else writeln('Ответ: нет');
end;


    begin
      writeln('Задание второе:');

  if (a>1) and (a<10) then
    writeln(a);



      if (b>1) and (b<10) then
        writeln(b);



      if (c>1) and (c<10) then
        writeln(c);
      end;
      begin
      writeln('Задание третье:');
      if (a=b) and (a=c) and (b=c) and (b=a) and (c=a) and (c=b) then
    writeln('Ответ: да')
      else writeln('Ответ: нет');
      end;
      begin
      writeln('Задание четвертое:');
      if (a<b) and (a<c) and (b<c) then
    
        a:=a*2;
        b:=b*2;
        c:=c*2;
    
        writeln('Удвоенное число a:', a);
        writeln('Удвоенное число b:', b);
        writeln('Удвоенное число c:', c);
        else
      
           writeln('Они не являются упорядоченными по возрастанию!');


      end;
end.

Само задание:
Задание 3. Составить программу, по которой с клавиатуры вводятся 3 целых числа А, В и С.
1) Выяснить, верно ли a < b < c ? Ответ получить в текстовой форме: верно или неверно.
2) Вывести на экран те числа, которые принадлежат отрезку [1; 10].
3) Проверить, есть ли среди этих чисел равные. Ответ получить в текстовой форме: да или нет.
4) Удвойте эти числа, если они являются упорядоченными по возрастанию.

var a,b,c:real;

begin
    begin
   writeln('Задание первое:');
writeln('Введите a, b и c: ');
readln(a,b,c);
if (a>b) and (b>c) then
writeln('Ответ: да')
else writeln('Ответ: нет');
end;


    begin
      writeln('Задание второе:');

  if (a>1) and (a<10) then
    writeln(a);



      if (b>1) and (b<10) then
        writeln(b);



      if (c>1) and (c<10) then
        writeln(c);
      end;
      begin
      writeln('Задание третье:');
      if (a=b) and (a=c) and (b=c) and (b=a) and (c=a) and (c=b) then
    writeln('Ответ: да')
      else writeln('Ответ: нет');
      end;
      begin
      writeln('Задание четвертое:');
      if (a<b) and (a<c) and (b<c) then begin
     
        a:=a*2;
        b:=b*2;
        c:=c*2;
     
        writeln('Удвоенное число a:', a);
        writeln('Удвоенное число b:', b);
        writeln('Удвоенное число c:', c) 
        end
        else
       
           writeln('Они не являются упорядоченными по возрастанию!');


      end;
end.

 

[brunoj]

И после вара, когда переменные называешь перенеси их на другую строчку, т.е
var
a,b,c...

 

[Kenzi1337]

var a,b,c:real;

begin
    begin
   writeln('Задание первое:');
writeln('Введите a, b и c: ');
readln(a,b,c);
if (a>b) and (b>c) then
writeln('Ответ: да')
else writeln('Ответ: нет');
end;


    begin
      writeln('Задание второе:');

  if (a>1) and (a<10) then
    writeln(a);



      if (b>1) and (b<10) then
        writeln(b);



      if (c>1) and (c<10) then
        writeln(c);
      end;
      begin
      writeln('Задание третье:');
      if (a=b) and (a=c) and (b=c) and (b=a) and (c=a) and (c=b) then
    writeln('Ответ: да')
      else writeln('Ответ: нет');
      end;
      begin
      writeln('Задание четвертое:');
      if (a<b) and (a<c) and (b<c) then begin
    
        a:=a*2;
        b:=b*2;
        c:=c*2;
    
        writeln('Удвоенное число a:', a);
        writeln('Удвоенное число b:', b);
        writeln('Удвоенное число c:', c)
        end
        else
      
           writeln('Они не являются упорядоченными по возрастанию!');


      end;
end.

Спасибо

И после вара, когда переменные называешь перенеси их на другую строчку, т.е
var
a,b,c...

Ок