Надеюсь начало у меня правильное. .
program algoritm;
uses crt;
var A,B,C,D:boo lean;
x,f,g,h,i,k,l,m,n,o,p,q:integer;
begin
clrscr;
a:=0;f:=0;g:=0;h:=0;i:=0;k:=0;l:=0;m:=0;n:=0;o:=0;p:=0;q:=0;
Сделал бы помельче скрин и потемнее, чо уж там))
нет, в "bool ean" убери пробел, и поставь после каждой точки-запятой и запятой.
program algoritm;
uses crt;
var A,B,C,D:boolean;
x,f,g,h,i,k,l,m,n,o,p,q:integer;
begin
clrscr;
readln(A,B,C,D);
a:=0;f:=0;g:=0;h:=0;i:=0;k:=0;l:=0;m:=0;n:=0;o:=0;p:=0;q:=0;
if A then
begin
if B then
begin
e:=1;f:=1;g:=1;
end
else
begin
h:=1;k:=1;
end;
q:=1;
end;
else
if C then
begin
m:=1;
if D then p:=1
else
begin
o:=1;n:=1;i:=1;
end;
end
else
begin
l:=1;q:=1;
end;
writeln(A,B,C,D,e,f,g,h,i,k,l,m,n,o,p,q);
readln;
end.
Ну что-то типа этого...;)
⇢