if..then..else(Delphi)

[BelialL]

Здравствуйте! помогите исправить ошибку в коде вот задание (Составить программу, которая вводит с клавиатуры три целых числа и, если сумма первых двух больше третьего, но меньше 10, выводит на экран первые 2 числа; в противном случае выводит на экран третье число.)
Вот что у меня получилось:

uses
  SysUtils;
  var a,b,c,d:integer;

begin
  readln (a);
  readln (b);
  readln (c);
  d:=a+b;
  begin if d<c,d>10 then write (a,b) else write (c) {здесь пишет что ошибка}
   end;
   readln;

end

[_-Re@l-_]

Ну...Надо так:

uses
  SysUtils;
  var a,b,c:integer;

begin
  readln (a);
  readln (b);
  readln (c);
  if (a+b>c) and (a+b<10) then 
  writeln(a,b)
  else writeln(c);
  readln;
end.

[Ybn2]

Конечно ошибка, должно быть так:

uses
  SysUtils;
  var a,b,c,d:integer;

begin
  readln (a);
  readln (b);
  readln (c);
  d:=a+b;
   if (d>c) and (d<10) then writeLn (a,' ',b) else writeLn (c) 
   readln;

end

[/QUOTE]

Если по правде и d тут не нужно, а просто записать
if (a+b>c) and (a+b<10) then writeLn (a,' ',b) else writeLn (c);

[unbanned]

begin 
if (d<c) and (d>10) 
then write (a,b) 
else write (c)
end;

пробуй так

[BelialL]

Спасибо большое очень помогли