Чтобы удобнее найти было, не?
Var a,b,c:integer; //стороны
begin
writeln('Введите длины сторон:');
read(a,b,c);
if (a=b)and(a=c)and(b=c) then
writeln('Треугольник равносторонний')
else
writeln('Треугольник не равносторонний');
readln;
end.
У тебя всё правильно расставлено. Очевидно, что двое ребят будут только болельщиками (те, кто не умеет играть ни в шашки, ни в шахматы), а для шести шахматистов понадобится 3 набора шахмат - на каждых двоих по набору. Закрашиваешь так: только в шашки - круг без пересечения с квадратом; только в шахматы - квадрат без пересечения с кругом; в шашки и шахматы - пересечение круга и квадрата; только болельщики - часть овала без круга и квадрата.
Тем, что память человечества - это всего лишь информация, а память человека - это способ доступа к информации.
Program azazaza;
var a,n,i:integer;
begin
for i:=1 to 10 do begin
read(a);
if a mod 2 = 0 then
n:=n+1;
end;
writeln('чётных=',n);
end.
Это только 1-е задание