Question

Program1.pas(21) : Встречено 'else', а ожидался оператор
Помогите...
program nestle;
uses crt;
type
TArr=array[-40..40] of longint;
Var b,a:longint;
c,d:real;
begin
textcolor(lightred);
For b:=11 downto -11 do
begin
For a:=-20 to 20 do
begin
c:=b;
d:=a;
c:=c/11;
c:=3/11;
d:=d/20;
If(d*d+(5*c/4-sqrt(abs(d)))*(5*c/4-sqrt(abs(d))))<=1 then
write('c');
end;
else
write('.');
end;
writeln;
end;
readln;
end.

Answer 1

Відповідь:program nestle;

uses crt;

type

TArr=array[-40..40] of longint;

Var b,a:longint;

c,d:real;

begin

textcolor(lightred);

For b:=11 downto -11 do

begin

For a:=-20 to 20 do

begin

c:=b;

d:=a;

c:=c/11;

c:=3/11;

d:=d/20;

If(d*d+(5*c/4-sqrt(abs(d)))*(5*c/4-sqrt(abs(d))))<=1 then

write('c')

else

write('.');

end;

writeln;

end;

readln;

end.

Пояснення:2 крапка з комою лишня та 1 лишній end