Я не могу понять в чем проблема, пишет ошибка?

Question

[NEKITVULGAR]

Program zl;
var a,b, max: intenger;
begin 
readin (a,b);
if a<b then max:=b;
else max:=a;
 writeln ('max=',max);
 end.

Comments

[Василий Банников]

Бан.
1. Код должен быть завёрнут в тег
2. Не приложены сообщения об ошибках
3. Компилятор вполне нормально объясняет, что не так, а если не понятно - в гугле всё подробно описано.

Answer 1

[Василий Банников]

Ты что, реально издеваешься? У тебя там опечатки, о которых говорит компилятор.

source.pas(2,16) Error: Identifier not found "intenger"

Должно быть Integer

source.pas(4,3) Error: Identifier not found "readin"

Должно быть readln

source.pas(5,8) Fatal: Syntax error, "THEN" expected but "ELSE" found

у if всегда должна быть ветка then

Результат должен быть примерно такой:

Program zl;
var a, b, max: Integer;
begin
  readln(a,b);
  if a < b then
    max := b //Да. Никакой точки с запятой тут быть не должно.
  else
    max := a;
  writeln('max=', max);
end.

Comments

[NEKITVULGAR]

Спасибо! Да ошибку просто ужас! Я просто только начел! Спасибо еще раз!

[NEKITVULGAR]

ЕЩЕ можешь помечь?
begin
readln(a, b, c) ;
D:=sqr(b) - 4*a*c;
writeln('D= ', D);
if D=0 then
begin
x:= -b/2*a;
writeln('x= ', x:8:3);
end;
if D>0 then
begin
x1:= -b+sqrt(D)/2*a;
x2:= -b-sqrt(D)/2*a;
writeln('x1= ', x1:8:3, 'x2= ', x2:8:3) ;
end;
else writeln('Корней нету!');
end.

Буду рад за помощь!

[Василий Банников]

NEKITVULGAR, Пиши сюда