ftp://sch43.ru/9class/pupil2.jpg
после writeln() должно стоять ( ;)
и в конце не нужна readln
F - ответ
1)
A B AvB F
0 0 0 0
1 0 1 1
0 1 1 1
1 1 1 1
2)
A B (отриц)B Bv(отриц)B F
0 0 1 1 1
0 1 0 1 1
1 0 1 1 1
1 1 0 1 1
3)
A B C AvBvC F
0 0 0 0 0
0 0 1 1 1
0 1 0 1 1
0 1 1 1 1
1 0 0 1 1
1 0 1 1 1
1 1 0 1 1
1 1 1 1 1
4)
A B C (отриц)C AvBv(отриц)C F
0 0 0 1 1 0
0 0 1 0 0 1
0 1 0 1 1 0
0 1 1 0 1 0
1 0 0 1 1 0
1 0 1 0 1 0
1 1 0 1 1 0
1 1 1 0 1 0
Program HelloWorld;var x1,y1,x2,y2:double;begin readln(x1); readln(y1); readln(x2); readln(y2); x1:=sqrt(x1*x1+y1*y1); x2:=sqrt(x2*x2+y2*y2); if(x1>x2) then writeln(x2:0:2) else if(x2>x1) then writeln(x1:0:2) else writeln('Одинаково близко',x1:0:2);end.